uses crt;
var i,n,a,b:longint; d:array[1..100000]of real;
begin
clrscr;
   write('Nhap so cac ban trung lop: ');readln(n); 
   for i:=1 to n Do 
      begin
         write('Nhap diem trung binh hoc ki I cua ban thu ',i,': ');readln(a);
         write('Nhap diem trung binh hoc ki II cua ban thu ',i,': ');readln(b);
         writeln;
         d[i]:=(a+b*2)/3;
      end;
   for i:=1 to n do
      begin
         write('Ban thu ',i,' dat ');
         if(d[i]>=8) then writeln('loai gioi.') else
         if(d[i]>=6.5)and(d[i]<8) then writeln('loai kha.') else
         if(d[i]>=5)and(d[i]<6.5)
         then writeln('loai trung binh.') else writeln('loai yeu.');
      end;
readln
end.

program bt;

uses crt;

var a:array [1..100] of integer; b:array [1..100] of integer;

gioi,kha,trungbinh,yeu:integer;

TBCN:real;

begin

clrscr;

writeln('Nhap n');readln(n);

for i:=1 to n do

begin

writeln('a[',i,']=');

readln('Diem trung binh hoc ki I la',a[i]);

writeln('b[',i,']=');

readln('Diem trung binh hoc ki II la',b[i]);

end;

gioi:=0; kha:=0;

trungbinh:=0; kem:=o

for i:=1 to n do

begin

TBCN:= (a[i]+b[i]*2)/3;

if TBCN>=8.0 then Gioi:=gioi+1;

if TBCN<5 then Kem:=kem+1;

if (TBCN<8.0) and (TBCN>=6.5) then kha:=kha+1;

if (TBCN>=5) and (TBCN<6.5) then trungbinh:=trungbinh+1;

end;

writeln(Gioi,'ban hoc sinh gioi');

writeln(Kha,'ban hoc sinh kha');

writeln(Trungbinh,'ban hoc sinh trung binh');

writeln(Kem,'ban hoc sinh kem');

readln;

end.