Составить программу на Паскале, которая выводит на экран максимальное число из трёх вводимых. Срочно!

var a, b, c: integer
function max(a,b: integer): integer;
begin
if a>b then max:=a
else max:=b
end

begin
readln (a,b,c);
writeln(max(max(a,b),c));
end.