Mong mọi người giúp ạ Viết chương trình nhập vào điểm của một học sinh sau đó đưa ra trung bình nếu điểm tb>8: xếp loại giỏi 6,5 đến 7,9: xếp loại khá 4,4 đến 5,0: xếp loại trung bình 4,9 đến 3,5: xếp loại yếu còn lại: xếp loại kém

uses crt;

var d : real;

begin

clrscr;

write('Nhap diem TB : '); readln(d);

if d > 8 then writeln('Xep loai gioi');

if (6.5 <= d) and (d <= 7.9) then writeln('Xep loai kha');

if (4.4 <= d) and (d <= 5.0) then writeln('Xep loai trung binh');

if (3.5 <= d) and (d <= 4.9) then writeln('Xep loai yeu');

if d < 3.5 then writeln('Xep loai kem');

readln

end.

Program NN;
Uses crt;
Var a,b,c,tbc: extended;
Begin
        Clrscr;
        Write('Nhap diem toan, van, anh: '); Readln(a,b,c);
        tbc:=(a+b+c)/3;
        If tbc>8 then Write('Gioi')
        Else If tbc>6.5 then Write('Kha')
        Else If tbc>5 then Write('TB')
        Else If tbc>3.5 then Write('Yeu')
        Else Write('Kem');
        Readln
End.