Cho mảng 1 chiều gồm N phần tử có kiểu dữ liệu là nguyên . Mảng vừa cho có bn phần tử là số nguyên tố

program ngto;

uses crt;

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

      n,i,d:integer;

function ktnt(k:integer):boolean;

var l:integer;

     begin

          ktnt:=false;

          if k<2 then exit;

          for l:=2 to trunc(sqrt(k)) do

               if k mod l=0 then exit;

          ktnt:=true;

     end;

BEGIN

     clrscr;

     write(‘Nhap so luong phan tu N: ‘);    readln(n);

     d:=0;

     for i:=1 to n do

          begin

               write(‘Phan tu thu ‘,i,’: ‘);    readln(A[i]);

               if ktnt(A[i]) then d:=d+1;

          end;

     write(‘Mang tren co ‘,d,’ phan tu la so nguyen to’);

     readln;

end.