program maximum;
var a,b,max: integer;
begin
writeln('Введите два целых числа');
read(a,b);
if a > b then max:= a
else max:= b;
writeln(max);
end.
program maximum;
var a,b,max: integer;
begin
writeln('Введите два целых числа');
read(a,b);
if a > b then max:= a
else max:= b;
writeln(max);
end.
PascalABC