program scopa;
var
line: ansistring;
i,j, number, tot: longint;
suit: char;
manonum, tavolonum:array[1..4] of integer;
manosui, tavolosui:array[1..4] of char;
setteinmano, setteintable:array[1..4] of boolean;
procedure readcard(var s: ansistring; var number: longint; var suit: char);
begin
if (s[1] = '1') and (s[2] = '0') then
begin
number := 10;
suit := s[3];
s := copy(s, 5, length(s));
end else begin
number := ord(s[1]) - ord('0');
suit := s[2];
s := copy(s, 4, length(s));
end;
end;
begin
{
uncomment the following lines if you want to read/write from files
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
}
readln(line);
for i:=1 to 4 do setteinmano[i]:=false; (*1=G,2=S,3=C,4=B*)
for i:=1 to 4 do setteintable[i]:=false;
for i:=1 to 3 do
begin
{ card in hand }
readcard(line, number, suit);
if (number=7) and (suit='G') then setteinmano[1]:=true;
if (number=7) and (suit='S') then setteinmano[2]:=true;
if (number=7) and (suit='C') then setteinmano[3]:=true;
if (number=7) and (suit='B') then setteinmano[4]:=true;
writeln (line);
manonum[i]:=number; manosui[i]:=suit;
{ use number and suit }
end;
tot:=0;
readln(line);
for i:=1 to 4 do
begin
{ card on table }
readcard(line, number, suit);
writeln(line);
if (number=7) and (suit='G') then setteintable[1]:=true;
if (number=7) and (suit='S') then setteintable[2]:=true;
if (number=7) and (suit='C') then setteintable[3]:=true;
if (number=7) and (suit='B') then setteintable[4]:=true;
tavolonum[i]:=number; tavolosui[i]:=suit;
tot:=tot+number;
{ use number and suit }
end;
for i:=1 to 3 do if setteinmano[1]=true then begin j:=2; while ((setteintable[j]=false) and (j<=4)) do j:=j+1; if j<5 then writeln ('7G',' ','7',setteintable[j])end;
for i:=1 to 3 do if manonum[i]=tot then write (manonum[i],manosui[i],' '); for j:=1 to 4 do write(tavolonum[j],tavolosui[j],' '); writeln;
end.
cHJvZ3JhbSBzY29wYTsKCnZhcgogICAgbGluZTogYW5zaXN0cmluZzsKICAgIGksaiwgbnVtYmVyLCB0b3Q6IGxvbmdpbnQ7CiAgICBzdWl0OiBjaGFyOwogICAgbWFub251bSwgdGF2b2xvbnVtOmFycmF5WzEuLjRdIG9mIGludGVnZXI7CiAgICBtYW5vc3VpLCB0YXZvbG9zdWk6YXJyYXlbMS4uNF0gb2YgY2hhcjsKICAgIHNldHRlaW5tYW5vLCBzZXR0ZWludGFibGU6YXJyYXlbMS4uNF0gb2YgYm9vbGVhbjsKcHJvY2VkdXJlIHJlYWRjYXJkKHZhciBzOiBhbnNpc3RyaW5nOyB2YXIgbnVtYmVyOiBsb25naW50OyB2YXIgc3VpdDogY2hhcik7CmJlZ2luCiAgICBpZiAoc1sxXSA9ICcxJykgYW5kIChzWzJdID0gJzAnKSB0aGVuCiAgICBiZWdpbgogICAgICAgIG51bWJlciA6PSAxMDsKICAgICAgICBzdWl0IDo9IHNbM107CiAgICAgICAgcyA6PSBjb3B5KHMsIDUsIGxlbmd0aChzKSk7CiAgICBlbmQgZWxzZSBiZWdpbgogICAgICAgIG51bWJlciA6PSBvcmQoc1sxXSkgLSBvcmQoJzAnKTsKICAgICAgICBzdWl0IDo9IHNbMl07CiAgICAgICAgcyA6PSBjb3B5KHMsIDQsIGxlbmd0aChzKSk7CiAgICBlbmQ7CmVuZDsKCgoKYmVnaW4KewogICAgdW5jb21tZW50IHRoZSBmb2xsb3dpbmcgbGluZXMgaWYgeW91IHdhbnQgdG8gcmVhZC93cml0ZSBmcm9tIGZpbGVzCiAgICBhc3NpZ24oaW5wdXQsICAnaW5wdXQudHh0Jyk7ICByZXNldChpbnB1dCk7CiAgICBhc3NpZ24ob3V0cHV0LCAnb3V0cHV0LnR4dCcpOyByZXdyaXRlKG91dHB1dCk7Cn0KCiAgICByZWFkbG4obGluZSk7CiAgICBmb3IgaTo9MSB0byA0IGRvIHNldHRlaW5tYW5vW2ldOj1mYWxzZTsgKCoxPUcsMj1TLDM9Qyw0PUIqKQogICAgZm9yIGk6PTEgdG8gNCBkbyBzZXR0ZWludGFibGVbaV06PWZhbHNlOwogICAgZm9yIGk6PTEgdG8gMyBkbwogICAgYmVnaW4KICAgICAgICB7IGNhcmQgaW4gaGFuZCB9CiAgICAgICAgcmVhZGNhcmQobGluZSwgbnVtYmVyLCBzdWl0KTsKICAgICAgICBpZiAobnVtYmVyPTcpIGFuZCAoc3VpdD0nRycpIHRoZW4gc2V0dGVpbm1hbm9bMV06PXRydWU7CiAgICAgICAgaWYgKG51bWJlcj03KSBhbmQgKHN1aXQ9J1MnKSB0aGVuIHNldHRlaW5tYW5vWzJdOj10cnVlOwogICAgICAgIGlmIChudW1iZXI9NykgYW5kIChzdWl0PSdDJykgdGhlbiBzZXR0ZWlubWFub1szXTo9dHJ1ZTsKICAgICAgICBpZiAobnVtYmVyPTcpIGFuZCAoc3VpdD0nQicpIHRoZW4gc2V0dGVpbm1hbm9bNF06PXRydWU7CiAgICAgICAgd3JpdGVsbiAobGluZSk7CiAgICAgICAgbWFub251bVtpXTo9bnVtYmVyOyBtYW5vc3VpW2ldOj1zdWl0OwogICAgICAgIHsgdXNlIG51bWJlciBhbmQgc3VpdCB9CiAgICBlbmQ7CiAgICB0b3Q6PTA7CiAgICByZWFkbG4obGluZSk7CiAgICBmb3IgaTo9MSB0byA0IGRvCiAgICBiZWdpbgogICAgICAgIHsgY2FyZCBvbiB0YWJsZSB9CiAgICAgICAgcmVhZGNhcmQobGluZSwgbnVtYmVyLCBzdWl0KTsKICAgICAgICB3cml0ZWxuKGxpbmUpOwogICAgICAgIGlmIChudW1iZXI9NykgYW5kIChzdWl0PSdHJykgdGhlbiBzZXR0ZWludGFibGVbMV06PXRydWU7CiAgICAgICAgaWYgKG51bWJlcj03KSBhbmQgKHN1aXQ9J1MnKSB0aGVuIHNldHRlaW50YWJsZVsyXTo9dHJ1ZTsKICAgICAgICBpZiAobnVtYmVyPTcpIGFuZCAoc3VpdD0nQycpIHRoZW4gc2V0dGVpbnRhYmxlWzNdOj10cnVlOwogICAgICAgIGlmIChudW1iZXI9NykgYW5kIChzdWl0PSdCJykgdGhlbiBzZXR0ZWludGFibGVbNF06PXRydWU7CiAgICAgICAgdGF2b2xvbnVtW2ldOj1udW1iZXI7IHRhdm9sb3N1aVtpXTo9c3VpdDsKICAgICAgICB0b3Q6PXRvdCtudW1iZXI7CiAgICAgICAgeyB1c2UgbnVtYmVyIGFuZCBzdWl0IH0KICAgIGVuZDsKICAgCiAgIGZvciBpOj0xIHRvIDMgZG8gaWYgc2V0dGVpbm1hbm9bMV09dHJ1ZSB0aGVuIGJlZ2luIGo6PTI7IHdoaWxlICgoc2V0dGVpbnRhYmxlW2pdPWZhbHNlKSBhbmQgKGo8PTQpKSBkbyBqOj1qKzE7IGlmIGo8NSB0aGVuIHdyaXRlbG4gKCc3RycsJyAnLCc3JyxzZXR0ZWludGFibGVbal0pZW5kOyAKICAgZm9yIGk6PTEgdG8gMyBkbyBpZiBtYW5vbnVtW2ldPXRvdCB0aGVuICB3cml0ZSAobWFub251bVtpXSxtYW5vc3VpW2ldLCcgJyk7IGZvciBqOj0xIHRvIDQgZG8gd3JpdGUodGF2b2xvbnVtW2pdLHRhdm9sb3N1aVtqXSwnICcpOyB3cml0ZWxuOyAKICAgIAoKICAgIAplbmQu