Verified answer

Ответ:

program Calc;

var

 n, s: Double;

 i: Integer;

begin

 s := 0;

 n := 1;

 while n <= 1024 do begin

   s := s + 1 / n;

   n := n * 2;

 end;

 WriteLn ('Сумма = ', s :20 :20);

 ReadLn;

end.