program prvocisla;
 uses crt;      //rozsirenie moznosti
var a:array [1..100]of integer;// pole do 100 prvkov
    n,i,p:integer; //deklaracia premennych
function prvo(x:integer):boolean;
  var k:integer;
begin
 for k:= 2 to (x div 2) do
    begin
      if x mod k = 0 then prvo:=false;
    end;
 if prvo=true then write(x,' ');
end;
begin
   randomize;  // generator nahod cisel
   writeln('pocet prvko pola');
   readln(n);
   for i:= 1 to n do //i nadobuda hodnoty 1..n
       begin
       a[i]:=random(90)+10; //0-89 + 10
       write(a[i],' ');
       end;
   writeln;
   for i:= 1 to n do
       begin
         writeln('vys',a[i],' ',prvo(a[i]));
       end;
readln;
end.