Вывести на экран числа (Паскаль) 3,6,9,12,15,18

var

i : integer; / / объявляем переменную целочисленного типа.

begin

for i : = 1 to 18 do / / начало цикла.

begin

if (i mod 3 = 0) then / / если текущее значение i делится на цело на три, то.

write (i,' '); / / выводим текущее значение переменной i на экран.

end;

end.