Решить задачу. Пользователь вводит 2 числа, вывести на экран максимальное и минимальное из этих 2 чисел. Если числа равны, вывести на экран "a=b".

var a, b : integer;

begin

write ('Введите a: ');

readln (a);

write ('Введите b: ');

readln (b);

if a > b then writeln ('Максимальное число - ', a,'. Минимальное число - ', b,'.');

if a < b then writeln ('Максимальное число - ', b,'. Минимальное число - ', a,'.');

if a = b then writeln ('a = b.');

end.