Вывести на экран все числа, кратные 3 в интервале от M до N при M
"от M до N при M", что значит "при М" ?
Var i, n, m: integer; begin readln(m, n); for i := m to n do if i mod 3 = 0 then writeln(i); end.