uses crt;
var d,i,n:longint;a:array[1..1000]of longint;
function NT(b:longint):boolean;
var j,dem:longint;
        begin
         dem:=0;
         for j:=1 to b do if(b mod j=0)then inc(dem);
         NT:=dem=2;
        end;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(NT(a[i]))then inc(d);
        end;
  write('co ',d,' so nguyen to la:');
  for i:=1 to n do if(NT(a[i]))then write(a[i],' ');
 readln
end.

uses crt;
var N, i, j, x : integer;
    A, B : array [1 .. 1000] of integer;
    
function KT (Z : integer) : boolean;
begin
    KT := true; j := 2;
    while (KT) and (j < Z) do
        begin
            if Z mod j = 0 then KT := false;
            inc(j);
        end;
end;

begin
clrscr;
readln(N);
for i := 1 to N do read(A[i]);

x := 0;
for i := 1 to N do 
    begin
        if (KT (A[i]) = true) and (A[i] >= 2) then
            begin
                x := x + 1;
                B[x] := A[i];
            end;
    end;
    
writeln(x);
for i := 1 to x do write(B[i],' ');

readln
end.