Var x, y : integer;
Begin
writeln('Введите 2 числа ');
readln(x,y);
if x>y
then
writeln (x)
else
writeln (y);
End.
Var x, y : integer;
Begin
writeln('Введите 2 числа ');
readln(x,y);
if x>y
then
writeln (x)
else
writeln (y);
End.