program btsydn;

uses crt;

  var A: array[1..100] of integer;

        i, n, g, k, tb: integer;

begin

       clrscr;

       write('Si so lop ban: '); readln(n);

       g:=0; k:=0; tb:=0;

       for i:=1 to n do

       begin

              write('Nhap diem trung binh cua ban thu ', i, ': '); readln(A[i]);

              if (A[i]>10) or (A[i[<0) then write('Nhap diem sai') esle

              begin

                     write('Diem trung binh mon cua ban ', i, : ', A[i]:4:1);

                     if A[i]>=8 then g:=g+1; else

                             if (A[i]>=6.5) and (A[i]<=7.9) then k:=k+1 else

                                     tb:=tb+1;

               end;

         end;

         writeln('So ban hsg: ', g);

         writeln('So ban hsk: ', k);

         writeln('So ban hstb: ', tb);

         readln

end.