1. Дано натуральное число n. Найти все наименьшие n простые числа,

procedure isprime(n: longint; var ip: boolean);
var i, sqrtn: longint;
begin
if (n gt;= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
then begin
i := 5;
sqrtn := trunc(sqrt(n));
ip := false;
while i lt;= sqrtn do
begin
if n mod i = 0 then exit;
inc(i, 2)
end;
ip := true
end
else ip := (n = 2) or (n = 3)
end;
var n, m: longint;
mp: boolean;
begin
m := 3;
write(n = );
readln(n);
if n lt;= m
then writeln(таких чисел нет)
else begin
writeln(такие числа есть, их номер:);
while n gt; m do
begin
isprime(m, mp);
if mp then writeln(m);
m := m * 2 + 1
end
end;
end.