uses crt;
var A:array[1..100] of longint;
i,n,s,tam,j:longint;
function nt(var n:longint):boolean;
var ok:boolean;
    i:longint;
begin
ok:=true;
for i:=2 to n-1 do
if n mod i=0 then ok:=ok and false;
if n<=2 then nt:=false else nt:=ok;
end;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
writeln;
write('Cac so chan co trong day: ');
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],',');
writeln;
write('Cac so am co trong day: ');
for i:=1 to n do
if A[i]<0 then
begin
write(A[i],',');
s:=s+A[i];
end;
writeln;
write('Tong cac so am: ',s);
writeln;
write('Cac so nguyen to: ');
for i:=1 to n do
if nt(A[i]) then write(A[i],',');
writeln;
write('Sap xep tang dan: ');
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tam:=A[i];
A[i]:=A[j];
A[j]:=tam;
end;
for i:=1 to n do
write(A[i],',');
readln
end.