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.