Viết Ct nhập vào điểm TB của 1 hs và in ra kết quả hs đó đạt loại gì Nếu điểm TB >=8.0 thì bạn đó là hsg Nếu điểm 6.5<= TB<8.0 thì là hs khá Nếu điểm 5.0<= TB<6.5 thì bạn đó là hs trung bình Nếu điểm TB >=8.0 thì bạn đó là hs yếu

uses crt;
var dtb: real;
begin
    clrscr;
    readln(dtb);
    
    if dtb >= 8 then write('Hoc sinh gioi') else
    if dtb >= 6.5 then write('Hoc sinh kha') else
    if dtb >= 5 then write('Hoc sinh trung binh') else
        write('Hoc sinh yeu');
readln;
end.

program bai_Giai;

uses crt;

var TB:real;

begin

clrscr;

write('nhap diem trung binh:');readln(TB);

if(TB >=8.0)then write('gioi')

else if(6.5<= TB)and(TB<8.0)then write('kha')

else if(5.0<= TB)and(TB<6.5)then write('trung binh')

else write('yeu');

readln

end.