cho dãy số n nhập từ bàn phím , tìm số nguyên tố trong dãy

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i,t,max:integer;
function ktnt(k:integer):integer;
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]);
    for i:=1 to n do
        if ktnt(A[i]) then write(A[i],' ');
    readln;
end.

uses crt;
var n,i,j : integer;
a: array[1..100] of longint;
function kt(x : integer) : boolean;
var i,d : integer;
begin
d:=0;
for i:=1 to x do if x mod i = 0 then d:=d+1;
if d=2 then kt:=true else kt:=false;
end;
begin
write('Nhap n :'); readln(n);
for i:=1 to n do begin
 write('Nhap phan tu ',i,' la :');
 readln(a[i]); end;
 writeln('Cac so nguyen to trong day la :');
for i:=1 to n do if kt(a[i]) then write(a[i]:3);
readln
end.