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 ≤ ĐTB < 6.5 thì xếp loại trung bình

+Nếu 6.5 ≤ ĐTB < 8.0 thì xếp loại khá

+Nếu ĐTB ≥ 8.0 thì xếp loại giỏi.

In kết quá xếp loại ra màn hình.

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.