uses crt;
var a:real;
beging
clrscr;
writeln('nhap diem trung binh cua Lan');
readln(a);
if (a>=8) then writeln('xep loai gioi');
if (6.5<=a<8) then writeln('xep loai kha');
if ( 5<=a<6.5) then writeln('xep loai trung binh');
if (a<5) then writeln('xep loai yeu');
readln
end.