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

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.