Как сделать в паскале?

Question

Как сделать в паскале?

---

Answer 1

Program n1;
var n, t, S: real; i: integer;
begin
readln(n);
S:=1;
for i:=1 to n do
begin
t:=1/(exp(i*ln(2)));
S:=S*t;
end;
writeln(S);
end.