Var
a, b: real;
Begin
Readln(a, b); {вводите цифры}
If a<b then write(b) else write(a);
Readln;
End.
Объяснение:
Я смог
