Ввести с клавиатуры 2 целых числа: m, n. Если n

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 mlt;=n then writeln(1) else writeln(k) //если mlt;=n вывести 1,
//по другому любое число от 2 до 10. 
end.