var a, b: integer;
begin
Write('Ведите числа a и b: '); ReadLn(a, b);
if a > b then WriteLn(a, ' больше ', b)
else if b > a then WriteLn(b, ' больше ', a)
else WriteLn('Числа равны');
end.
Объяснение:
