найти произведение чисел 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.