Uses CRT;
Var ĐTB : real;
begin
clrscr;
begin
write('nhap diem trung binh: ');
If (TB >=8) then write('hoc luc gioi') else
If (TB>=6.5) then write('hoc luc kha') else
If (TB>5.0) then write('hoc luc trung binh') else
If (TB<5.0) then write('hoc luc kem');
Readln;
end.