Определить значение суммы S = 1/2 + 1/4 + … +1/72. паскаль плиз

Question

Определить значение суммы S = 1/2 + 1/4 + … +1/72.
паскаль плиз

Answer 1

Var s: real;
i: integer;
begin
s := 0;
for i := 1 to 36 do
s := s + 1 / (i * 2);
writeln('S = ', s);
end.