Найдите все натуральные числа на промежутке от 1 до 200, которые делятся на 3 в паскале

Var i:integer;beginFor i:=1 to 200 doIf i mod 3 = 0 then write(i,' ');end.

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  Range(3,200,3).Printlnend.Результат3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117 120 123 126 129 132 135 138 141 144 147 150 153 156 159 162 165 168 171 174 177 180 183 186 189 192 195 198