Program Jum_Ihisel;

Var s: real; n:integer;

Begin

s:=0;

n:=8;

while s<21 do

 begin

 s:=s+5/n;

 n:=n*2;

 end;

writeln("Сумма= ", s);

End.