циклы в паскале

[zenid]

Найти произведение первых членов произвольной арифметической прогрессии, не превосходящих N.
пожалуйста проверьте правильно ли я сделал:

var a,n,i,d:integer;
p:real;
begin
readln (a,n,d);
p:=1;
for i:=1 to n do
if p<n then begin
p:=p*(2*a+d*(a-1)*a/2);
end;
writeln ('p=',p:5:2);
readln;
end.

[Hacker19_90]

ну смотрите
2*a+d*(a-1)*a/2
стрёмная формула у вас
ибо число то по ней одно и тоже получается!
проверяем
ввели
(1, 2, 3)
на первом шаге член вашей прогрессии равен
2*1 + 3*(1-1)*1/2 = 2
не трудно догадаться что и на втором шаге следуюший член прогресиии будет таким же
Отсюда вывод: у вас не реализована прогрессия
да и к тому же

произведение первых членов произвольной арифметической прогрессии, не превосходящих N.

отсюда вывод что вам надо найти произведение не N элементов этой прогрессии, а искать это произведение пока очередной член прогресии не будет больше N

[zenid]

а можете написать код? (пожалуйста)

[zenid]

пожалуйста помогите, наберите код.

[Mad_Cat]

var a,n,d,pr:real;
begin
readln (a,n,d);
pr:=1;
while a<N do begin
pr:=pr*a;a:=a+d;
end;
writeln ('p=',pr:5:2);
readln;
end.