program laba_1_2;

{$APPTYPE CONSOLE}

uses
   SysUtils;
 var
    I,N,Chisl,Znam:Integer;
    Sum:Double;
    IsCorrect:Boolean;
begin
 IsCorrect := False;
   repeat
     WriteLn('Введите N');
     try
        ReadLn(N);
        IsCorrect := True;
     except
        WriteLn('Пожалуйства, введите другое число');
     end;
   until (IsCorrect) and (N>0);
   Sum:=(1/2);
   Chisl:=1;
   Znam:=2;
   for I := 2 to N do
     begin
        Znam:=Znam*2;
        Sum:=Sum+(Chisl/Znam);
     end;
   WriteLn('Sum :' ,Sum:5:4);
   ReadLn;
end.