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