uses crt;
var a : array [1 .. 200] of integer;
i, n, j, d : integer; kt : boolean;
begin
clrscr;
write('Nhap so phan tu : '); readln(n);
write('Nhap day gom ', n ,' so : ');
kt := true; d := 0;
for i := 1 to N do begin
read(a[i]); for j := 2 to a[i] - 1 do
if a[i] mod j = 0 then kt := false;
if kt = true then d := d + 1 else kt := true;
end;
write('Co ', d ,' so nguyen to');
readln
end.