Program hotrotinhoc_hoc24;
var i,d,n,min: integer;
a: array[1..32000] of integer;
function nt(x: longint): boolean;
var j: longint;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while (j<=trunc(sqrt(x))) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap so phan tu cua day: '); readln(n);
min:=32000; d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if nt(a[i]) then
begin
if a[i]<min then min:=a[i];
inc(d);
end;
end;
if d=0 then write('Trong day khong co so nguyen to') else write('So nguyen to nho nhat trong day la : ',min);
readln
end.
