uses crt;
var a:array[0..100000] of longint;
    i,n,res:longint;
function nto(n:longint):boolean;
var i:longint;
begin
 if n < 2 then exit(false);
  for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0 then exit(false);
exit(true);
end;
begin
clrscr;
readln(n);
for i := 1 to n do
 begin
  read(a[i]);
  if nto(a[i]) then
    begin
      write(a[i],' ');
      res := res + a[i];
    end;
 end;
writeln;
writeln('Tong = ',res);
readkey;
end. 

program bai_giai;
uses crt;
var i,n:longint;a:array[1..1000]of longint;d,g:text;
function NT(a:longint):boolean;
var dem,j:longint;
        begin
         dem:=0;
         for j:=1 to a do if(a mod j=0)then inc(dem);
         NT:=dem=2;
        end;
procedure doc_file;
        begin
         assign(d,'mang_nto.inp');
         reset(d);
         readln(n);
         for i:=1 to n do readln(a[i]);
         close(d);
        end;
procedure ghi_file;
var s:longint;
        begin
         assign(g,'mang_nto.out');
         rewrite(g);
         s:=0;
         for i:=1 to n do if(NT(a[i]))then
                begin
                 write(g,a[i],' ');
                 inc(s,a[i]);
                end;
         writeln;
         write(g,'tong=',s);
         close(g);
        end;
begin
 clrscr;
  doc_file;
  ghi_file;
 readln;
end.