Дано естественное число n. Найти все наименьшие n числа Мерсенна. (Обычное

procedure isprime(n: longint; var ip: boolean);
var i, sqrtn: longint;
begin
nbsp;nbsp;if (n gt;= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
nbsp;nbsp;nbsp;nbsp;then begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i := 5;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;sqrtn := trunc(sqrt(n));
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ip := false;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while i lt;= sqrtn do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if n mod i = 0 then exit;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;inc(i, 2)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ip := true
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;else ip := (n = 2) or (n = 3)
end;
nbsp;
var n, m: longint;
nbsp;nbsp;nbsp;nbsp;mp: boolean;
nbsp;
begin
nbsp;nbsp;m := 3;
nbsp;nbsp;write(n = );
nbsp;nbsp;readln(n);
nbsp;nbsp;if n lt;= m
nbsp;nbsp;nbsp;nbsp;then writeln(Prime Mersenne numbers, smaller this number, dont exist.)
nbsp;nbsp;nbsp;nbsp;else begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Prime Mersenne numbers, there is less than this number:);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while n gt; m do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;isprime(m, mp);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if mp then writeln(m);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;m := m * 2 + 1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;readln
end.