Объяснение:
Var a,b:integer;
begin
readln(a,b);
if a>b then
writeln(a)
else
writeln(b);
end.
ответ не мой , удачи :}
