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