function snt( p:integer):boolean;
var j:integer;
begin
snt:=true;
for j:=2 to p-1 do if p mod j=0 then snt:=false;
end;
begin
assign(t2,'dayso.inp'); reset(t2);
assign(t3,'dayso.out'); rewrite(t3);
readln(t2,n);
for i:=1 to n do readln(t2,m[i]);
for i:=1 to n do if snt(m[i]) then
begin
write(t3, m[i],' ');
s:=s+m[i];
end;
write(t3,s);
close(t2);
close(t3);
end.