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

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.