em chỉ mới học lớp 8 nên chưa biết lưu vào tệp nha anh/chị có thể tự thêm vào còn đây là code in kết quả ra màn hình nè:
program GiaiBai;
uses crt;
var i, n:integer;
A: array [1..250] of integer;
function Ktra (m:integer) : integer;
var t:boolean;
j:integer;
begin
t:=true;
for j:=2 to m-1 if m mod j=0 then t:=false;;
if t=true then write(m:4);
end;
begin
clrscr;
write('Nhap n '); readln(n);
while n>250 do begin
writeln('So vua nhap qua lon xin hay nhap lai ');
write('Nhap n ');readln(n);
end;
for i:=1 to n do begin
write('A[',i,']='); readln(A[i]); //Nht
end;
for i:=1 to n do Ktra(A[i]);
readln;
end.
(*Bai nay chi in ket qua ra man hinh*)