uses crt;
var a: array[1..100] of real;
i,n: integer;
begin
clrscr;
write ('nhap so luong HS: '); readln (n);
for i:=1 to n do
begin
write ('nhap diem trung binh HS thu ',i,': '); readln (a[i]);
if a[i]>=8 then writeln ('loai gioi')
else if (a[i]<8) and (a[i]>=6.5) then writeln ('loai kha')
else if (a[i]<6.5) and (a[i]>=5.0) then writeln ('loai trung binh')
else writeln ('loai yeu');
writeln;
end;
readln;
end.