Đề bài ở dưới! Mn cho hỏi code được viết : uses crt; var i,n,j,d: byte; t: integer; a: array [1..1000] of longint; function ktnt(b:longint): boolean; var kt:boolean; e: longint; begin kt:=true; for i:=2 to round(sqrt(b)) do if b mod e=0 then kt:=false; ktnt:=kt; end; begin clrscr; write('Nhap so phan tu: '); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; readln; write('Mang sap xep tang dan la: '); for i:=1 to n-1 do for j:=i to n do if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; readln; for i:=1 to n do write(a[i],' '); writeln; write('Cac so nguyen to: '); for i:=1 to n do if ktnt(a[i]) and (a[i]>=2) then begin write(a[i],' '); d:=d+1; end; writeln; writeln('Co ',d,' so nguyen to'); readln; end. Tại sao khi nhập mảng có phần tử là số âm lại ko thực hiện được chương trình ??? Đg cần gấp ạ