Bài 2. Nhập vào n số nguyên không âm, đếm số lượng số là số nguyên tố trong dãy số vừa nhập.

Input:

Dòng đầu tiên là n (1<=n<=10000) - số lượng số nguyên trong dãy.

Dòng thứ 2 là n số nguyên trong dãy Output:

Số lượng số nguyên tố trong dãy Ví dụ

Input

10

1 2 3 4 5 6 7 8 9 11

Output 5

pascal ạ

uses crt,math;
var n,i,x,d:longint;
a:array[1..1000000] of boolean;

procedure sang(n:longint);
var i,j:longint;
begin
a[1]:=false;
for i:=2 to trunc(sqrt(n)) do
 if a[i]  then
 begin
  j:=i*i;
  while j<=n do
  begin
   a[j]:=false;
   j:=j+i;
  end;
 end;
end;

begin
clrscr;
readln(n);
fillchar(a,sizeof(a),true);
sang(10**6);
for i:=1 to n do
begin
 read(x);
 if a[x] then
  d:=d+1;
end;
write(d);
readln
end.

uses crt, math;
var n,i,cnt: integer;
    a: array[1..100] of integer;
function prime(n: integer): boolean;
var i: integer;
begin
    for i:=2 to trunc(sqrt(n)) do begin
        if n mod i = 0 then exit(false);
    end;
    if n>=2 then exit(true);
    exit(false);
end;

begin
    readln(n);
    cnt:=0;
    for i:=1 to n do begin
        read(a[i]);
        if prime(a[i]) then cnt:=cnt+1;
    end;
    write(cnt);
end.