program Pascal_1;
varN: integer;s: real;
beginN := 10;s := 0;
for N := 0 to 10 dobegins := s + 1 / power(2, N);end;
writeln('Сумма последовательности = ', s);end.
program Pascal_1;
var
N: integer;
s: real;
begin
N := 10;
s := 0;
for N := 0 to 10 do
begin
s := s + 1 / power(2, N);
end;
writeln('Сумма последовательности = ', s);
end.