Two numbers are given. Find the smaller one. (write a program in Pascal)

program zz1;

var
n, k: integer;

begin
writeln (‘Enter n’); // enter the first given number
read (n);
writeln (‘Enter k’); // enter the second given number
read (k);
if n = k then write (‘the numbers are equal’) // check if the numbers are equal, then print the answer
else
if n> k then write (‘Less number =’, k) else write (‘Less number =’, n); // check if the first is greater than the second, then display the second, otherwise the first
end.