program ideone;
uses crt;
var Wsp1,i,Wsp2,WynikA,WynikB,n:integer;
LiczbaB: array[1..10] of integer;
LiczbaA: array[1..10] of integer;
begin
clrscr;
n:= 0;
WynikA:=0;
WynikB:=0;
Readln(Wsp1);
ReadLn(Wsp2);
Randomize;
for i:=1 to 10 do
begin
LiczbaA[i]:= Random(100) + Wsp1;
LiczbaB[i]:= Random(100) + Wsp2;
if( abs(LiczbaA[i] - LiczbaB[i]) > 40) then
begin
if(LiczbaA[i] > LiczbaB[i]) then
begin
WynikA := WynikA + 1;
end
else
begin
WynikB := WynikB + 1;
end
end
else if (abs(LiczbaA[i] - LiczbaB[i]) > 20) then
begin
WynikA := WynikA + 1;
WynikB := WynikB + 1;
end;
writeln(LiczbaA[i], ' ', LiczbaB[i], ' ', LiczbaA[i]-LiczbaB[i]);
writeln(WynikA,':',WynikB);
Writeln();
readkey;
end;
end.
cHJvZ3JhbSBpZGVvbmU7CnVzZXMgY3J0Owp2YXIgV3NwMSxpLFdzcDIsV3luaWtBLFd5bmlrQixuOmludGVnZXI7CkxpY3piYUI6IGFycmF5WzEuLjEwXSBvZiBpbnRlZ2VyOwpMaWN6YmFBOiBhcnJheVsxLi4xMF0gb2YgaW50ZWdlcjsKYmVnaW4KY2xyc2NyOwpuOj0gMDsKV3luaWtBOj0wOwpXeW5pa0I6PTA7ClJlYWRsbihXc3AxKTsKUmVhZExuKFdzcDIpOwogCiAKUmFuZG9taXplOwpmb3IgaTo9MSB0byAxMCBkbwpiZWdpbgpMaWN6YmFBW2ldOj0gUmFuZG9tKDEwMCkgKyBXc3AxOwpMaWN6YmFCW2ldOj0gUmFuZG9tKDEwMCkgKyBXc3AyOwoKaWYoIGFicyhMaWN6YmFBW2ldIC0gTGljemJhQltpXSkgPiA0MCkgdGhlbgpiZWdpbgogICAgaWYoTGljemJhQVtpXSA+IExpY3piYUJbaV0pIHRoZW4KICAgIGJlZ2luCiAgICAgICAgV3luaWtBIDo9IFd5bmlrQSArIDE7CiAgICBlbmQKICAgIGVsc2UKICAgIGJlZ2luCiAgICAgICAgV3luaWtCIDo9IFd5bmlrQiArIDE7CiAgICBlbmQKZW5kCmVsc2UgaWYgKGFicyhMaWN6YmFBW2ldIC0gTGljemJhQltpXSkgPiAyMCkgdGhlbgpiZWdpbgogICAgV3luaWtBIDo9IFd5bmlrQSArIDE7CiAgICBXeW5pa0IgOj0gV3luaWtCICsgMTsKZW5kOwoKd3JpdGVsbihMaWN6YmFBW2ldLCAnICcsIExpY3piYUJbaV0sICcgJywgTGljemJhQVtpXS1MaWN6YmFCW2ldKTsKd3JpdGVsbihXeW5pa0EsJzonLFd5bmlrQik7CldyaXRlbG4oKTsKcmVhZGtleTsKZW5kOwogCmVuZC4=