program Taylor;
uses crt;
var n,i,j,dl,dd:longint; a:array[1..10000000]of real; t:real;
begin
clrscr;
   write('Nhap so hoc sinh: ');readln(n);
   for i:=1 to n do
      begin
         write('So diem trung binh cua ban thu ',i,': ');readln(a[i]);
         if a[i]<3 then inc(dl) else inc(dd);
      end;  writeln;
   for i:=1 to n do writeln('So diem trung binh cua ban thu ',i,': ',a[i]:0:2);
   writeln('Thi dau: ',dd);
   writeln('Thi lai: ',dl);
   for i:=1 to n do
      for j:=1 to i do
            if a[i]<a[j] then
               begin
                  t:=A[I];
                  a[i]:=a[j];
                  a[j]:=t;
               end;
   for i:=1 to n do write(a[i]:0:2,' ');
readln
end.