uses crt;
var i,n,d:longint; a:array[1..1000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('A[',i,']= ');readln(a[i]);  
         if nt(a[i]) then inc(d);
      end; 
   writeln('Day co ',d,' so nguyen to');
readln
end.

uses crt;
var a:array[1..1000]of longint;
    n,i,count:longint;
function isPrimeNumber(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 isPrimeNumber(a[i]) then inc(count);
        end;
    write(count);
readln;
readln;
end.