Составить подпрограмму нахождения большего из трех чисел и применить в основной программе

Function Max (a, b, c:integer) : integer;

Begin

if b > a then a:=b;

if c > a then a:=c;

result:=a;

End;

Var

a, b, c:integer;

Begin

Write ('Введите три числа: '); ReadLn (a, b, c);

Write ('Max = ', Max (a, b, c))

End.