eva2012209@email.com , ответ добавлен 18.05.2017 в 17: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