[email protected] , ответ добавлен 18.05.2017 в 21:30

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.

 0