Program BTH;
uses crt;
var a:real;
BEgin
clrscr;
write('Nhap so diem: ');readln(a);
If a<5 then writeln('Hoc sinh kem') else
If (a>=5) and (a<=6.4) then writeln('Hoc sinh TB') else
If (a>=6.5) and (a<=7.9) then writeln('Hoc sinh kha') else
writeln('Hoc sinh gioi');
readln;
end.