Объяснение:
//fpc 3.0.0
program HelloWorld;
Var a,b,c:Integer;
begin
readln(a);
readln(b);
if a> b then c:=a else c:= b;
writeln(c);
end.
