program xep_loai_hoc_luc:

uses crt;

var TB: real;

begin

clrscr;

write ('nhap diem TB: );readin (TB):

if TB >=8.0 then writeln (hoc luc gioi)

else if (TB >=6.5) and (TB<8) then writeln (hoc luc kha')

else if (TB>=5.0) and (TB <6.5) then writeln(hoc luc trung binh')

else if (TB>=3.5) and (TB<5.0)then writeln(hoc luc yeu')

else writeln('hoc luc kem');

readin

end.