Program Diem_Trung_Binh;
Uses crt;
Var tb: real;
Begin
Clrscr;
Write('Ban hay nhap diem trung binh : ');
Readln(tb);
End;
Until (tb>0) and (tb<100);
If (TB >= 80) then write('hoc luc gioi') else
Writeln ('Khong dat');
Readln;
End;
End.
Em test thử trên pc đi nhé
Lỗi chỗ nào nói chị