var
a, b, max: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
if a >= b then
max := a
else
max := b;
writeln (max);
readln
end.
var
a, b, max: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
if a >= b then
max := a
else
max := b;
writeln (max);
readln
end.