program diem_thi;
uses crt;
var dt: real;
begin
clrscr;
writeln(' nhap diem thi:'); readln(dt);
if dt=>8 then writeln('loai gioi:');
if (6.5 <= dt) and (dt<8.0) writeln(' loai kha:');
if (5<=dt) and (dt<6,5) then writeln(' loai trung binh:');
if dt<5 then writeln('loai ken:');
readln;
end.