minh sữa lại bài của cậu như sau :
hok pik lỗi chỗ nào mà vẫn ko chạy dc
Program Xep_loai_HL;
Uses crt;
Var DTB,DLT,DTH:Real;
Begin
clrscr;
write('Nhap DTH cua hoc sinh = ');
readln(DTH);
write('Nhap DLT cua hoc sinh = ');
readln(DLT);
DTB := (DTH + DLT)/2
If DTB > = 8 then
write('Xep...