program Bai_8_CLDKDD_Diem;
uses crt;
var DMTB :real;
begin
        clrscr;
        writeln('Chuong trinh tinh hoc luc,Vui long nhap diem TB cua ban');
        writeln('-------------------------------------------------------');
        repeat
        write('Nhap diem cua ban: '); readln(DMTB)
        until (DMTB>=0)and(DMTB<=10);
        if DMTB>=8 then writeln('Chuc mung,Em dat loai gioi');
        if (DMTB>=6.5)and(DMTB<8) then writeln('Tot lam,Em dat loai kha');
        if (DMTB>=5)and(DMTB<6.5) then writeln('Em can co gang hon.Em dat loai Trung Binh');
        if (DMTB>=3.5)and(DMTB<5) then writeln('Rat tiec,Em duoc loai yeu');
        if (DMTB<3.5) then writeln('Em duoc loai Kem,Em co gang nam sau nhe!! ');
        readln;
end.