Kết quả của chương trình sau là: Begin Writeln('5+20=',20+5); Readln; Nếu ĐTB<0 hoặc ĐTB>10 thì thông báo "Điểm không hợp lệ",ngược lại: - Nếu ĐTB > hoặc =8 thì xếp loại Giỏi - Nếu 6,5< hoặc = ĐTB<8 ĐTB thì xếp loại Khá - Nếu 5< hoặc = ĐTB<6,5 thì xếp loại Trung bình Còn lại xếp loại yếu Đây là viết chương trình trên pascal ,mong mọi ng giúp

Câu 1:

5+20=25

Câu 2:

Program BTT;
Uses crt;
Var a: real;
Begin
        Clrscr;
        Write('Nhap diem: '); Readln(a);
        If (a>0) and (a<=10) then
        Begin
                If a<5 then Write('Xep loai yeu');
                If (a>=5) and (a<6.5) then Write('Xep loai trung binh!');
                If (a>=6.5) and (a<8) then Write('Xep loai kha!');
                If a>=8 then Write('Xep loai gioi');
        End
        Else Write('Diem khong hop le');
        Readln
End.