Даны два числа. Найти меньшее из них. (написать программу на Паскале)

program zz1;

var

n, k: integer;

begin

writeln ('Введите n'); / /вводим первое заданное число

read (n);

writeln ('Введите k'); / /вводим второе заданное число

read (k);

if n = k then write ('числа равны ') / /проверяем, если числа равны, то выводим ответ

else

if n > k then write ('Меньшее число = ', k) else write ('Меньшее число = ', n); / /проверяем, если первое больше второго, то выводим второе, иначе первое

end.