viết chương trình dãy số nguyên n là phần tử (n<= 1000) . đếm xem có bao nhiêu phần tử là số nguyên tố

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

      n, i, d: byte;

Function isNt(x: word): boolean;

   Var j: word;

   Begin

       For j:=2 to x-1 do if (x mod j = 0)

               Then exit(false);

       Exit(true);

   End;

Begin

    Write('n = '); readln(n);

    D:=0;

    For i:=1 to n do

       Begin

          Write('a[', i, '] = '); readln(a[i]);

          If a[i]>1 then if isNt(a[i])=true

                Then inc(d);

       End;

    Write('co ', d, ' so nguyen to');

    Readln

End.

{GM Kiet}

#A_Hy

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

      n, i, d: byte;

Function isNt(x: word): boolean;

   Var j: word;

   Begin

       For j:=2 to x-1 do if (x mod j = 0)

               Then exit(false);

       Exit(true);

   End;

Begin

    Write('n = '); readln(n);

D:=0;

For i:=1 to n do

Begin

Write('a[', i, '] = '); readln(a[i]);

If a[i]>1 then if isNt(a[i])=true

Then inc(d);

End;

Write('co',d,' so nguyen to');

Readln

End.