Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,d: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to trunc(sqrt(a)) do
                If a mod i = 0 then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If ngto(A[i]) then inc(d);
        End;
        Write(d);
        Readln
End.

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.