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

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.