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.