Viết chương trình nhập điểm trung bình (ĐTB) trong học kỳ 1 của các bạn học sinh. đưa ra kết quả xếp loại của học sinh dựa trên các tiêu chí dưới đây: +Nếu ĐTB<5.0 thì xếp loại yếu +Nếu 5.0 ≤

uses crt;

var diem:real;

begin

clrscr;

repeat

write('Nhap diem trung binh:'); readln(diem);

until (0<=diem) and (diem<=10);

if diem<5 then writeln('Xep loai yeu')

else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')

else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')

else writeln('Xep loai gioi');

readln;

end.