Вывести на экран все числа, кратные 3 в интервале от 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.