Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i,s,d: longint;
Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to trunc(sqrt(a)) do
If a mod i = 0 then exit(false);
exit(true);
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; d:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If ngto(A[i]) then
Begin
inc(d);
s:=s+A[i];
End;
End;
Writeln('Co ',d,' so nguyen to');
Write('Tong la: ',s);
Readln
End.
