Program r7_67;
uses crt;
const n=20;
var a:array[1..n] of longint;
i:integer;
Procedure nextsimple(var i:Longint);
var j:Longint;
begin
repeat
inc(i);
j:=1;
repeat
inc(j);
until(j>sqrt(i)) or (i mod j=0);
until j>sqrt(i);
end;
BEGIN
A[1]:=2;
for i:=2 to n do
begin
A[i]:=A[i-1];
nextsimple(A[i]);
end;
writeln('Число: ');
for i:=1 to n do
write(A[i], ' ');
END.