uses crt;

var A:array[1..100] of integer;

i,n,d:integer;

function nt(var n:integer):boolean;

var i:integer;

ok:boolean;

begin

ok:=true;

for i:=2 to n-1 do if n mod i=0 then ok:=ok and false;

if n<2 then nt:=false else nt:=ok;

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 d:=d+1;

end;

write('So luong so nguyen to: ',d);

readln

end.

#include <bits/stdc++.h>
using namespace std;

bool nguyen_to(int n) {
    for (int i=2; i<=sqrt(n); i++) if (n%i==0) return false;
    if (n<1) return false;
    return true;
}

int main() {
    int n;
    cin >> n;
    int a[n];
    int d=0;
    for (int i=0; i<n; i++) {
        cin >> a[i];
        if (nguyen_to(a[i])) d++;
    }
    cout << d;
}