Program pr1;
Var n:Integer; a:Real;
Begin
Repeat
n:=n+1;
a:=(Power(2,n)+1);
Until a>200;
Writeln ('a=',a);
Writeln('n=',n);
End.
