2Sinay

Решение хорошее, но только почему после введения значений m и n, меня выкидывает в окно редактирования кода? Приходится cнова запускать программу, чтобы увидеть результат.

program for3;
var m,n,k, NOK: integer;
begin
write(' m = '); readln(m);
write(' n = '); readln(n);
for k:=m*n downto n do
if (k mod m = 0) and (k mod n = 0) then NOK:=k;
writeln(' NOK = ',NOK);
Readln;
end.