program PascalGuru;
 
function pow(x,n:integer):integer;
var i,r:integer;
begin
r:=x;
for i:=1 to n-1 do r:=r*x;
pow:=r;
end;
 
{-----------------------------------------------------}
var rezult:real;
    x,i:integer;
 
begin
write('X= '); readln(x);
{x/1-(x-1)/2+(x-2)/4-(x-3)/8+(x-4)/16- ... +1/2 в степени x      }
 
rezult:=x/1;
for i:=1 to x do
if odd(i) then rezult:=rezult-((X-i)/pow(2,i))
          else rezult:=rezult+((X-i)/pow(2,i));
 
 
writeln('Rezult= ',rezult:0:2);
 
readln;
end.