3. Последовательность задана формулой аn=2n +1. Определить первый член последовательности, который больше 200 и его порядковый номер. Паскаль
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.