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