uses crt;
var d : real;
begin
clrscr;
write('Nhap diem TB : '); readln(d);
if d > 8 then writeln('Xep loai gioi');
if (6.5 <= d) and (d <= 7.9) then writeln('Xep loai kha');
if (4.4 <= d) and (d <= 5.0) then writeln('Xep loai trung binh');
if (3.5 <= d) and (d <= 4.9) then writeln('Xep loai yeu');
if d < 3.5 then writeln('Xep loai kem');
readln
end.