Program baitap;

Uses crt;

Var TB:real;

Begin

Clrscr;

Write('Nhap diem trung binh:'); Readln(TB);

If TB>=8.0 then Writeln('Bạn la hoc sinh gioi'); 

If (TB>=6.5) and (TB<8.0) then Writeln('Bạn la hoc sinh kha'); 

If (TB>=5.0) and (TB<6.5) then Writeln('Bạn la hoc sinh trung binh'); 

If (TB>=3.5) and (TB<5.0) then Writeln('Bạn la hoc sinh yeu'); 

If TB<3.5 then Writeln('Bạn la hoc sinh kem'); 

Readln

End.

tb = float(input("nhập điểm trung bình"))
if tb >= 8.0:
 print("học sinh giỏi")
elif tb >= 6.5 and tb < 8.0:
 print("Học sinh khá")
elif tb >= 5.0 and tb < 6.5:
 print("học sinh trung bình")
elif tb >= 3.5 and tb < 5.0:
 print("học sinh yếu")
elif tb < 3.5:
 print("loại ngu")