uses crt;
Var n,i,j:integer;
a:array[1..100] of integer;
kt:boolean;
begin
write('nhap n: ');readln(n);
for i:=1 to n do
begin
write('nhap pt thu ',i,' : ');readln(a[i]);
end;
for i:=1 to n do
begin
kt:=true;
for j:=2 to round(sqrt(a[i])) do if a[i] mod j=0 then kt:=false;//kt a[i] co phai so nt ko thi kt=false
if kt=true then write(a[i],' ');//kt=true xuat
end;
readln;
end.
Nếu sai nói để sửa