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

Если N это количество чисел, начинаем с 3

var

i,n,p:integer

begin

readln(n);

i:=3;

p:=1;

while i<=3*n do

begin

p:=p*i;

i:=i+3;

end;

writeln(p);

end.

Если N это верхняя граница чисел

var

i,n,p:integer

begin

readln(n);

for i:=3 to n

if i mod 3 = 0 then

p:=p*i;

writeln(p);

end.