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.