Có 3 đội bóng(A,B,C), theo luật FIFA đội thắng được 3 điểm, hòa 1 điểm, thua 0 điểm Kết quả A gặp B có tỉ sô (P:Q), A ghi P bàn thắng, thủng lưới Q lần A gặp C có tỉ số (R:S), A ghi R bàn thắng, thủng lưới S lần B gặp C có tỉ số (U:V), B ghi U bàn thắng, thủng lưới V lần Viết chương trình nhập từ bàn phím kết quả trận đấu và đưa ra số điểm của mỗi đội Xin giúp em , em cảm ơn

Uses crt;
Var P,Q,R,S,U,V,dA,dB,dC: byte;
Begin
        Clrscr;
        dA:=0; dB:=0; dC:=0;
        Write('A gap B: ');
        Writeln;
        Write('Nhap ti so 2 doi: '); Readln(P,Q);
        If P>Q then dA:=dA+3;
        If P=Q then
        Begin
                dA:=dA+1;
                dB:=dB+1;
        End;

        Write('A gap C: ');
        Writeln;
        Write('Nhap ti so 2 doi: '); Readln(R,S);
        If R>S then dA:=dA+3;
        If R=S then
        Begin
                dA:=dA+1;
                dC:=dC+1;
        End;

        Write('B gap C: ');
        Writeln;
        Write('Nhap ti so 2 doi: '); Readln(U,V);
        If U>V then dB:=dB+3;
        If U=V then
        Begin
                dB:=dB+1;
                dC:=dC+1;
        End;

        Write('Diem doi A: ',dA);
        Writeln;
        Write('Diem doi B: ',dB);
        Writeln;
        Write('Diem doi C: ',dC);

        Readln
End.