Question

Напишите ФУНКЦИЮ, которая вычисляет максимальное из трех чисел

Answer 1

Function Max(a,b : Integer) : Integer;
Begin
  If a>=b then Max:=a else Max:=b;
end;

Function Max3(a,b,c : Integer) : Integer;
Begin
  Max3:=Max(Max(a,b),c);
end;