Составить программу на паскале которая находит большее из двух чисел

var

a, b: integer;

begin

write ('Введите первое число: ');

readln (a);

write ('Введите второе число: ');

readln (b);

if a < b then write ('Второе число больше, чем первое.')

else write ('Первое число больше, чем второе.');

if a = b then write ('Числа равны.')

end.