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