program bt;
uses crt;
var a: real;
begin
clrscr;
writeln('nhap diem cua ban: '); readln(a);
if (a>=8) then writeln('ban la hoc sinh gioi');
if (a<8) and (a>=6.5) then writeln('ban la hoc sinh kha'); 
if (a<6.5) and (a>=5) then writeln('ban la hoc sinh trung binh');
if (a<5) and (a>=3) then writeln('ban la hoc sinh yeu');
if (a<3) then writeln('ban la hoc sinh kem');
readln
end.