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.