Var ht,lop,TB : real;
begin
clrscr;
write('Nhap ho ten: '); readln(ht);
write('Nhap lop: '); readln(lop);
write('Nhap diem trung binh: '); readln(TB);
If (TB >= 8) then write('hoc luc gioi')
else if (TB>=6.5) then write('hoc luc kha')
else if (TB>5) then write('hoc luc trung binh')
else if (TB>3.5) then write('hoc luc yeu')
Readln;
END.