Создать программу, которая выведет на экран числа от 1 до n, которые делятся на 3. n-целое число которое вводится с клавиатуры язык pascal.abc

Var n,i:integer;
begin
write('Введите n:');
readln(n);
for i:=1 to n do
if i mod 3=0 then writeln(i);
readln;
end.