var a, b, c: integer;
function naib(af, bf, cf: integer): integer;
var max: integer;
begin
if af > bf then max := af else max := bf;
if cf > max then max := cf;
naib := max;
end;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
writeln('Наибольшим из введённых трёх чисел является ', naib(a, b, c));
end.
Объяснение:
