Viết phương trình nhập vào 1 dãy gồm n số nguyên (n<= 250 a[i]<= 300) a. In ra màn hình dãy vừa nhập b. Đếm số lượng số nguyên tố trong dãy Mọi người ơi giúp mk vs :3

program bai_giai;
uses crt;
var A:array[1..250] of integer;
    n,i,d:integer;
function ktnt(k:integer):boolean;
var r:integer;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit
    exit(true);
end;
BEGIN
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    d:=0;
    for i:=1 to n do
        begin
            write(A[i],' ');
            if ktnt(A[i]) then d:=d+1;
        end;
    writeln;
    writeln('Co ',d,' so nguyen to');
    readln;
end.

uses crt;
var n,i,d:byte; a:array[1..250]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
begin
clrscr;
   write('Nhap n: ');readln(n); 
   d:=0;
   for i:=1 to n Do 
      begin
         write('a[',i,']=');readln(a[i]);
         if nt(a[i]) then inc(d); 
      end;
   write('Day vua nhap: ');
   for i:=1 to n do write(a[i],' ');
   writeln;
   writeln('Co ',d,' so nguyen to trong day');
readln;
end.