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

var a, b : integer;beginwrite(\'Введите 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.