Написать программу Дано естественное число n Вычеслить

Так как по условию дано число натуральное n, значит имеет смысл организовать вычисления с помощью цикла For.

//Pascal

var i,n:integer;

p:real;

begin

 readln(n);

 //так как находим творение ряда,

 //то превый член ряда равен 1

 p:=1;

 for i:=1 to n do p:=p*(1-1/(2*i));

 writeln(p);

end.