найти произведение чисел N, которые делятся на 3 нацело.

program zz1;

var i, S, k, n:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество нечетных чисел

read (n);

i:=1; / / задаем начальное число

S:=1; / / задаем начальное значение для произведения

k:=0;

while k < n do / / организуем цикл, пока количество число кратных трем не достигнет n

begin

if i mod 3 = 0 then begin S:=S * i; k:=k+1; end; / / вычисляем произведение и считаем количество чисел кратных трем

i:=i + 1; / / получаем следующее число

end;

writeln (' произведение заданных чисел = ', S); / / выводим ответ

end.