program nguyento;

var f,g:text;

      n:integer;

{---chuong-trinh-con---}

function ktnt(k:integer):boolean;

var i:integer;

begin

       ktnt:=false;

       if k<2 then exit;

       for i:=2 to trunc(sqrt(k)) do

              if k mod l=0 then exit;

       exit(true);

end;

{---Chuong-trinh-chinh---}

BEGIN

       Assign(f,'SONGUYEN.TXT');    reset(f);

       Assign(g,'SONGUYENTO.TXT');    rewrite(g);

       while not eof(f) do

              begin

                     readln(f,n);

                     if ktnt(n) then write(g,n,' ');

              end;

       close(f);  close(g);

end.

Const outp = 'songuyento.txt';

           inp = 'songuyen.txt';

var f1, f2: text;

      a: integer;

Function isNt(x: word): boolean;

   Var j: word;

   Begin

       For j:=2 to x-1 do if (x mod j =0)

               Then exit(false);

       Exit(true);

   End;

 

Begin

     Assign(f1, inp); reset(f1);

     Assign(f2, outp); rewrite(f2);

    While not eof(f1) do

        Begin

            readln(f1, a); 

            if a>1 then if isNt(a)=true 

                    then write(f2, a, ' ');

        End;

    Close(f1); close(f2);

End.