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

program zz1;

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

begin

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

read(n);  

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

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

k:=0;

while k lt; 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.