var a: array[1..100] of integer;
n, i, d: byte;
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
Write('n = '); readln(n);
D:=0;
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
If a[i]>1 then if isNt(a[i])=true
Then inc(d);
End;
Write('co ', d, ' so nguyen to');
Readln
End.
{GM Kiet}