Program bangdiembongdabynhan;
Uses crt;
Var A,B:Real;
Th,H,T:Integer;
Begin
Clrscr;
Write('So diem doi bong A la:');Readln('A');
Write('So diem doi bong B la:');Readln('B');
If A>=3 then writeln('Doi bong A vo dich')
Else writeln('Doi bong A thua');
If B>=3 then writeln('Doi bong B vo dich')
Else writeln('Doi bong B thua');
Readln();
End.