uses crt;
var A:array[1..100] of longint;
i,n,tam,j,s:longint;
function nt(var n:longint):boolean;
var i:longint;
ok:boolean;
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);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
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],',');
writeln;
write('Cac so chia het cho 3: ');
for i:=1 to n do
if A[i] mod 3=0 then write(A[i],',');
writeln;
for i:=1 to n do
if nt(A[i]) then s:=s+A[i];
write('Tong cac so nguyen to co trong day: ',s);
readln
end.

uses crt;
var s,s1,i,n,j,tam,t:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 3=0 then s:=s+a[i];
 t:=0;
 for j:=1 to a[i] do
  if a[i] mod j=0 then t:=t+1;
 if t=2 then s1:=s1+a[i];
end;
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;
write('mang theo thu tu tang dan la:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('tong cac ptu chia het cho 3 la:',s);
write('tong cac ptu trong day la so nguyen to la:',s1);
readln;
end.