Программа в Pascal ABC

Question

программа в pascal abc задано натуральное число n вычислить p= (1-1/2)*(1-1/4)... где n>2 помогите пжлст Напишите пожалуйта всю программу начиная program ...; 
var...; 
begin и заканчивая End. Заранее спасибо!

Александр · Accepted Answer

Если ещё актуально, пиши на почту, помогу.

Малыш · Answer

program tjfu1; 
var i,n:integer; p:real; 
begin readln(n); p:=1; for i:=1 to n do p:=p*(1-1/(2*i)); writeln(p); readln end.