Вывести на экран все натуральные числа делящиеся на 3 без остатка

program zz1;

var i, n:integer; / /заводим переменную для цикла

begin

write ('Введите до какого числа будем перебирать числа');

read (n); / /мы не можем перебирать натуральные числа до бесконечности, поэтому надо ввести до какого числа будет организован этот перебор

for i: = 1 to n do / /организуем цикл для перебора всех чисел от 1 до n

if i mod 3 = 0 then write (i,' '); / /проверяем, если число делится на три, то выводим его на экран в строку через пробел

end.