мы вам перезвоним

>>146228695 (OP)
ЁБАНЫЙ ДАУН Я ЕБАЛ ТВОЮ ШМАРУ МАТЬ ХУЕСОС АШТИСЁТ ОТ ТВОЕЙ ТУПОСТИ


i:=2
while i <= n do
begin
p:=p*(i/(i+1));
end;

>>146228695 (OP)
ну делай while и считай циклы в условие достижение энного числа
begin
write('введите n=');
readln(n);
p:=1;
i=2
while i<=n do begin
i=i+1;
p:=p*(i/(i+1));
end
write('ответ=', p:8:2);
end.

i:=2;
While i<=n или i<(n+1), если не поймёт <= do
begin
p:=...;
n:=n+1;
end;
Writeln(...);

>>146228893
Ну да, итератор хуё-моё, не забудь заинкрементить, а не то мамку твою против воли в жопу отъебу опять

>>146228893
>>146228946
>>146229052
люблю вас <3

>>146228695 (OP)
Рекурсия же!

не забудь что там 2n а не n

>>146229935
if n/ a ...