program scopa;
var
line: ansistring;
i,j, h, tot, number: longint;
suit: char;
numinmano, numintable: array[1..4] of integer;
suinmano, suintable: array[1..4] of char;
setteinmano, setteintable: array[1..4] of char;
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);
}
for i:=1 to 4 do begin setteinmano[i]:='0'; setteintable[i]:='0'; end;
readln(line);
h:=1;
for i:=1 to 3 do
begin
{ card in hand }
readcard(line, number, suit);
writeln (line);
numinmano[i]:=number;
suinmano[i]:=suit;
if number=7 then begin setteinmano[h]:= suit; h:=h+1; end;
{ use number and suit }
end;
readln(line);
tot:=0; h:=0;
for i:=1 to 4 do
begin
{ card on table }
readcard(line, number, suit);
writeln(line);
numintable[i]:=number;
suintable[i]:=suit;
tot:=tot+number;
if number=7 then begin setteintable[h]:= suit; h:=h+1; end;
{ use number and suit }
end;
for i:=1 to 4 do write ('7',setteinmano[i]); end.
for i:=1 to 3 do if numinmano[i]=tot then write (numinmano[i],suinmano[i],' ');
for j:=1 to 4 do write(numintable[j],suintable[j],' '); writeln;
end.
cHJvZ3JhbSBzY29wYTsKCnZhcgogICAgbGluZTogYW5zaXN0cmluZzsKICAgIGksaiwgaCwgdG90LCBudW1iZXI6IGxvbmdpbnQ7CiAgICBzdWl0OiBjaGFyOwogICAgbnVtaW5tYW5vLCBudW1pbnRhYmxlOiBhcnJheVsxLi40XSBvZiBpbnRlZ2VyOwogICAgc3Vpbm1hbm8sIHN1aW50YWJsZTogYXJyYXlbMS4uNF0gb2YgY2hhcjsKICAgIHNldHRlaW5tYW5vLCBzZXR0ZWludGFibGU6IGFycmF5WzEuLjRdIG9mIGNoYXI7CiAgICAKcHJvY2VkdXJlIHJlYWRjYXJkKHZhciBzOiBhbnNpc3RyaW5nOyB2YXIgbnVtYmVyOiBsb25naW50OyB2YXIgc3VpdDogY2hhcik7CmJlZ2luCiAgICBpZiAoc1sxXSA9ICcxJykgYW5kIChzWzJdID0gJzAnKSB0aGVuCiAgICBiZWdpbgogICAgICAgIG51bWJlciA6PSAxMDsKICAgICAgICBzdWl0IDo9IHNbM107CiAgICAgICAgcyA6PSBjb3B5KHMsIDUsIGxlbmd0aChzKSk7CiAgICBlbmQgZWxzZSBiZWdpbgogICAgICAgIG51bWJlciA6PSBvcmQoc1sxXSkgLSBvcmQoJzAnKTsKICAgICAgICBzdWl0IDo9IHNbMl07CiAgICAgICAgcyA6PSBjb3B5KHMsIDQsIGxlbmd0aChzKSk7CiAgICBlbmQ7CmVuZDsKCgoKYmVnaW4KewogICAgdW5jb21tZW50IHRoZSBmb2xsb3dpbmcgbGluZXMgaWYgeW91IHdhbnQgdG8gcmVhZC93cml0ZSBmcm9tIGZpbGVzCiAgICBhc3NpZ24oaW5wdXQsICAnaW5wdXQudHh0Jyk7ICByZXNldChpbnB1dCk7CiAgICBhc3NpZ24ob3V0cHV0LCAnb3V0cHV0LnR4dCcpOyByZXdyaXRlKG91dHB1dCk7Cn0KICAgIGZvciBpOj0xIHRvIDQgZG8gYmVnaW4gc2V0dGVpbm1hbm9baV06PScwJzsgc2V0dGVpbnRhYmxlW2ldOj0nMCc7IGVuZDsKICAgIHJlYWRsbihsaW5lKTsKICAgIGg6PTE7CiAgICBmb3IgaTo9MSB0byAzIGRvCiAgICBiZWdpbgogICAgICAgIHsgY2FyZCBpbiBoYW5kIH0KICAgICAgICByZWFkY2FyZChsaW5lLCBudW1iZXIsIHN1aXQpOwogICAgICAgIHdyaXRlbG4gKGxpbmUpOwogICAgICAgIG51bWlubWFub1tpXTo9bnVtYmVyOwogICAgICAgIHN1aW5tYW5vW2ldOj1zdWl0OwogICAgICAgIGlmIG51bWJlcj03IHRoZW4gYmVnaW4gc2V0dGVpbm1hbm9baF06PSBzdWl0OyBoOj1oKzE7IGVuZDsKICAgICAgICAKICAgICAgICB7IHVzZSBudW1iZXIgYW5kIHN1aXQgfQogICAgZW5kOwoKICAgIHJlYWRsbihsaW5lKTsKICAgIHRvdDo9MDsgaDo9MDsKICAgIGZvciBpOj0xIHRvIDQgZG8KICAgIGJlZ2luCiAgICAgICAgeyBjYXJkIG9uIHRhYmxlIH0KICAgICAgICByZWFkY2FyZChsaW5lLCBudW1iZXIsIHN1aXQpOwogICAgICAgIHdyaXRlbG4obGluZSk7CiAgICAgICAgbnVtaW50YWJsZVtpXTo9bnVtYmVyOwogICAgICAgIHN1aW50YWJsZVtpXTo9c3VpdDsKICAgICAgICB0b3Q6PXRvdCtudW1iZXI7CiAgICAgICAgaWYgbnVtYmVyPTcgdGhlbiBiZWdpbiBzZXR0ZWludGFibGVbaF06PSBzdWl0OyBoOj1oKzE7IGVuZDsKICAgICAgICB7IHVzZSBudW1iZXIgYW5kIHN1aXQgfQogICAgZW5kOwogICAgZm9yIGk6PTEgdG8gNCBkbyB3cml0ZSAoJzcnLHNldHRlaW5tYW5vW2ldKTsgZW5kLgogICAgZm9yIGk6PTEgdG8gMyBkbyBpZiBudW1pbm1hbm9baV09dG90IHRoZW4gd3JpdGUgKG51bWlubWFub1tpXSxzdWlubWFub1tpXSwnICcpOwogICAgZm9yIGo6PTEgdG8gNCBkbyB3cml0ZShudW1pbnRhYmxlW2pdLHN1aW50YWJsZVtqXSwnICcpOyB3cml0ZWxuOwoKICAgIAplbmQuCgo=