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