Ввести с клавиатуры 2 целых числа: m, n. Если n ≤ m, то вывести 1, в противном случае - любое другое число. Напишите программу в Паскаль.

program compare;

var n, m, k : integer;

begin

write ('m = ');

Readln (m);

write ('Enter n = ');

Readln (n);

randomize;

k: = random (9) + 1; / /случайное число от 2 до 10

if m<=n then writeln (1) else writeln (k) / /если m<=n вывести 1,

//иначе любое число от 2 до 10.

end.