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

var
   i, n: integer; // объявляем переменные целочисленного типа.
   s : string;  // объявляем переменную строкового типа.
begin
   for i := 1 to 200 do        // начало цикла.
       begin
          if (i mod 3 = 0)  // проверяем делится ли текущее число на три без остатка.
           then s := s + i + ;   // формируем строчку из чисел, которые делятся на три без остатка.
       end;
    writeln (Ряд чисел: , s); // вывод ответа на экран.
end.