program Tinh;
uses crt;
var i,j,n: integer; s,tb,tam: real; ch: char;
      a : array [1..20] of real;
begin
repeat
 clrscr; readln(n); s:=0; 
 for i:=1 to n do
  begin
    write('A[',i,']='); readln(a[i]); s:=s+a[i];
  end; tb:=s/n;
 writeln('Tong : ',s:3:2);
 writeln('Trung binh : ',tb:3:2);
  for i:=1 to n do
   for j:=2 to n do
    begin
      if a[i]>a[j] then 
       begin
         tam:=a[i];
         a[i]:=a[j];
         a[j]:=tam;
       end;
     end;
  writeln('Sap xep : ');
  for i:=1 to n do write(a[i],'  ');
  write('Tiep tuc ! (C/K) ');
     ch:=readkey
until upcase(ch)='K'
end.