program scopa;
type carta = record
numero:longint;
seme:char
end;
coppie = record
somma:longint;
indice1:longint;
indice2:longint;
end;
var
line: ansistring;
i,j, h,w, tot, som, number, ricordaid,ricordaid2, idmanosette, idtablesette: longint;
suit: char;
mano, table: array[1..4] of carta;
prendodue : array[1..6] of coppie;
settebinmano, settebintable, setteinmano,setteintable,fattoscopa, trovatosette1, trovatosette2: boolean;
terna:array [1..4] of longint;
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');
if ord(s[2])<>32 then
begin
suit := s[2];
s := copy(s, 4, length(s));
end
else
begin
suit := s[2+1];
s := copy(s, 4+1, length(s));
end;
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);
}
settebinmano:=false; settebintable:=false; setteinmano:=false; setteintable:=false;fattoscopa:=false; trovatosette1:=false; trovatosette2:=false;
readln(line);
for i:=1 to 3 do
begin
{ card in hand }
readcard(line, number, suit);
writeln (line);
mano[i].numero:=number;
mano[i].seme:=suit;
if (number=7) and (suit='G') then settebinmano:=true;
{ use number and suit }
end;
readln(line);
tot:=0;
for i:=1 to 4 do
begin
{ card on table }
readcard(line, number, suit);
writeln(line);
table[i].numero:=number;
table[i].seme:=suit;
tot:=tot+number;
if (number=7) and (suit='G') then settebintable:=true;
{ use number and suit }
end;
for i:=1 to 3 do if mano[i].numero=tot then begin fattoscopa:=true; ricordaid:=i; end;
h:=1; for i:=1 to 4 do begin terna[h]:=tot-table[i].numero; h:=h+1; end;
for i:=1 to 3 do if mano[i].numero=7 then begin setteinmano:=true; idmanosette:=i; end;
for i:=1 to 4 do if table[i].numero=7 then begin setteintable:=true; idtablesette:=i; end;
h:=0;
for i:= 1 to 3 do
begin
som:=0;
for j:=i+1 to 4 do
begin
h:=h+1;
som:=table[i].numero+table[j].numero;
prendodue[h].somma:=som;
prendodue[h].indice1:=i;
prendodue[h].indice2:=j;
end;
end;
if settebinmano=true then
begin for i:=1 to 4 do if table[i].numero=7 then writeln ('7','G',' ','7',table[i].seme); end
else if settebintable=true then
begin for i:=1 to 3 do if mano[i].numero=7 then writeln ('7','G',' ','7',mano[i].seme); end
else if fattoscopa=true then begin write(mano[ricordaid].numero,mano[ricordaid].seme,' ');
for j:=1 to 4 do write(table[j].numero,table[j].seme,' '); writeln;end
else if setteinmano=true then begin if setteintable=true then writeln (mano[idmanosette].numero, mano[idmanosette].seme,' ',table[idtablesette].numero, table[idtablesette].seme)
else
begin
for h:=1 to 6 do if (prendodue[h].somma=7) then begin trovatosette1:=true; ricordaid:=h; end;
if trovatosette1=true then writeln ('ciao',mano[idmanosette].numero, mano[idmanosette].seme,' ',table[prendodue[ricordaid].indice1].numero, table[prendodue[ricordaid].indice1].seme,' ',table[prendodue[ricordaid].indice2].numero, table[prendodue[ricordaid].indice2].seme)
else
for w:=1 to 4 do if terna[w]=7 then begin trovatosette2:=true; ricordaid2:=w; end;
if trovatosette2=true then writeln ('hello',mano[idmanosette].numero, mano[idmanosette].seme,' ',table[1].numero, table[1].seme,' ',table[2].numero, table[2].seme,' ',table[3].numero, table[3].seme);
end
end;
writeln(ricordaid); end.
else if setteintable=true then begin
else begin
end.
cHJvZ3JhbSBzY29wYTsKdHlwZSBjYXJ0YSA9IHJlY29yZAogICAgICAgICAgICAgICAgICAgbnVtZXJvOmxvbmdpbnQ7CiAgICAgICAgICAgICAgICAgICBzZW1lOmNoYXIKICAgICAgICAgICAgICAgIGVuZDsKICAgICBjb3BwaWUgPSByZWNvcmQKICAgICAgICAgICAgICAgICAgIHNvbW1hOmxvbmdpbnQ7CiAgICAgICAgICAgICAgICAgICBpbmRpY2UxOmxvbmdpbnQ7CiAgICAgICAgICAgICAgICAgICBpbmRpY2UyOmxvbmdpbnQ7CiAgICAgICAgICAgICAgICBlbmQ7ICAgICAgICAgICAgCnZhcgogICAgbGluZTogYW5zaXN0cmluZzsKICAgIGksaiwgaCx3LCB0b3QsIHNvbSwgbnVtYmVyLCByaWNvcmRhaWQscmljb3JkYWlkMiwgaWRtYW5vc2V0dGUsIGlkdGFibGVzZXR0ZTogbG9uZ2ludDsKICAgIHN1aXQ6IGNoYXI7CiAgICBtYW5vLCB0YWJsZTogYXJyYXlbMS4uNF0gb2YgY2FydGE7CiAgICBwcmVuZG9kdWUgOiBhcnJheVsxLi42XSBvZiBjb3BwaWU7CiAgICBzZXR0ZWJpbm1hbm8sIHNldHRlYmludGFibGUsIHNldHRlaW5tYW5vLHNldHRlaW50YWJsZSxmYXR0b3Njb3BhLCB0cm92YXRvc2V0dGUxLCB0cm92YXRvc2V0dGUyOiBib29sZWFuOwogICAgdGVybmE6YXJyYXkgWzEuLjRdIG9mIGxvbmdpbnQ7CiAgICAKcHJvY2VkdXJlIHJlYWRjYXJkKHZhciBzOiBhbnNpc3RyaW5nOyB2YXIgbnVtYmVyOiBsb25naW50OyB2YXIgc3VpdDogY2hhcik7CmJlZ2luCiAgICBpZiAoc1sxXSA9ICcxJykgYW5kIChzWzJdID0gJzAnKSB0aGVuCiAgICBiZWdpbgogICAgICAgIG51bWJlciA6PSAxMDsKICAgICAgICBzdWl0IDo9IHNbM107CiAgICAgICAgcyA6PSBjb3B5KHMsIDUsIGxlbmd0aChzKSk7CiAgICBlbmQgZWxzZSBiZWdpbgogICAgICAgIG51bWJlciA6PSBvcmQoc1sxXSkgLSBvcmQoJzAnKTsKICAgICAgICBpZiBvcmQoc1syXSk8PjMyIHRoZW4gCiAgICAgICAgICAgICAgICAgICAgICAgICBiZWdpbgogICAgICAgICAgICAgICAgICAgICAgICAgIHN1aXQgOj0gc1syXTsKICAgICAgICAgICAgICAgICAgICAgICAgICBzIDo9IGNvcHkocywgNCwgbGVuZ3RoKHMpKTsKICAgICAgICAgICAgICAgICAgICAgICAgIGVuZCAgCiAgICAgICAgICAgICAgICAgICAgICAgICBlbHNlCiAgICAgICAgICAgICAgICAgICAgICAgICAgYmVnaW4KICAgICAgICAgICAgICAgICAgICAgICAgICAgIHN1aXQgOj0gc1syKzFdOwogICAgICAgICAgICAgICAgICAgICAgICAgICAgcyA6PSBjb3B5KHMsIDQrMSwgbGVuZ3RoKHMpKTsKICAgICAgICAgICAgICAgICAgICAgICAgICBlbmQ7ICAKICAgIGVuZDsKZW5kOwoKCgpiZWdpbgp7CiAgICB1bmNvbW1lbnQgdGhlIGZvbGxvd2luZyBsaW5lcyBpZiB5b3Ugd2FudCB0byByZWFkL3dyaXRlIGZyb20gZmlsZXMKICAgIGFzc2lnbihpbnB1dCwgICdpbnB1dC50eHQnKTsgIHJlc2V0KGlucHV0KTsKICAgIGFzc2lnbihvdXRwdXQsICdvdXRwdXQudHh0Jyk7IHJld3JpdGUob3V0cHV0KTsKfQogICAgc2V0dGViaW5tYW5vOj1mYWxzZTsgc2V0dGViaW50YWJsZTo9ZmFsc2U7IHNldHRlaW5tYW5vOj1mYWxzZTsgc2V0dGVpbnRhYmxlOj1mYWxzZTtmYXR0b3Njb3BhOj1mYWxzZTsgdHJvdmF0b3NldHRlMTo9ZmFsc2U7IHRyb3ZhdG9zZXR0ZTI6PWZhbHNlOwogICAgcmVhZGxuKGxpbmUpOwogICAgZm9yIGk6PTEgdG8gMyBkbwogICAgYmVnaW4KICAgICAgICB7IGNhcmQgaW4gaGFuZCB9CiAgICAgICAgcmVhZGNhcmQobGluZSwgbnVtYmVyLCBzdWl0KTsKICAgICAgICB3cml0ZWxuIChsaW5lKTsKICAgICAgICBtYW5vW2ldLm51bWVybzo9bnVtYmVyOwogICAgICAgIG1hbm9baV0uc2VtZTo9c3VpdDsKICAgICAgICBpZiAobnVtYmVyPTcpIGFuZCAoc3VpdD0nRycpIHRoZW4gc2V0dGViaW5tYW5vOj10cnVlOwogICAgICAgIHsgdXNlIG51bWJlciBhbmQgc3VpdCB9CiAgICBlbmQ7CgogICAgcmVhZGxuKGxpbmUpOwogICAgdG90Oj0wOyAKICAgIGZvciBpOj0xIHRvIDQgZG8KICAgIGJlZ2luCiAgICAgICAgeyBjYXJkIG9uIHRhYmxlIH0KICAgICAgICByZWFkY2FyZChsaW5lLCBudW1iZXIsIHN1aXQpOwogICAgICAgIHdyaXRlbG4obGluZSk7CiAgICAgICAgdGFibGVbaV0ubnVtZXJvOj1udW1iZXI7CiAgICAgICAgdGFibGVbaV0uc2VtZTo9c3VpdDsKICAgICAgICB0b3Q6PXRvdCtudW1iZXI7CiAgICAgICAgaWYgKG51bWJlcj03KSBhbmQgKHN1aXQ9J0cnKSB0aGVuIHNldHRlYmludGFibGU6PXRydWU7CiAgICAgICAgeyB1c2UgbnVtYmVyIGFuZCBzdWl0IH0KICAgIGVuZDsKICAgIGZvciBpOj0xIHRvIDMgZG8gaWYgbWFub1tpXS5udW1lcm89dG90IHRoZW4gYmVnaW4gZmF0dG9zY29wYTo9dHJ1ZTsgcmljb3JkYWlkOj1pOyBlbmQ7CiAgICBoOj0xOyBmb3IgaTo9MSB0byA0IGRvIGJlZ2luIHRlcm5hW2hdOj10b3QtdGFibGVbaV0ubnVtZXJvOyBoOj1oKzE7IGVuZDsKICAgIGZvciBpOj0xIHRvIDMgZG8gaWYgbWFub1tpXS5udW1lcm89NyB0aGVuIGJlZ2luIHNldHRlaW5tYW5vOj10cnVlOyBpZG1hbm9zZXR0ZTo9aTsgZW5kOwogICAgZm9yIGk6PTEgdG8gNCBkbyBpZiB0YWJsZVtpXS5udW1lcm89NyB0aGVuIGJlZ2luIHNldHRlaW50YWJsZTo9dHJ1ZTsgaWR0YWJsZXNldHRlOj1pOyBlbmQ7CiAgICBoOj0wOwogICAgZm9yIGk6PSAxIHRvIDMgZG8KICAgICAgICAgICAgICAgIGJlZ2luCiAgICAgICAgICAgICAgICAgIHNvbTo9MDsKICAgICAgICAgICAgICAgICAgZm9yIGo6PWkrMSB0byA0IGRvCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJlZ2luIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoOj1oKzE7CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNvbTo9dGFibGVbaV0ubnVtZXJvK3RhYmxlW2pdLm51bWVybzsKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcHJlbmRvZHVlW2hdLnNvbW1hOj1zb207CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHByZW5kb2R1ZVtoXS5pbmRpY2UxOj1pOwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBwcmVuZG9kdWVbaF0uaW5kaWNlMjo9ajsKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVuZDsKICAgICAgICAgICAgICAgIGVuZDsgCiAgICBpZiBzZXR0ZWJpbm1hbm89dHJ1ZSB0aGVuIAogICAgICAgICAgIGJlZ2luIGZvciBpOj0xIHRvIDQgZG8gaWYgdGFibGVbaV0ubnVtZXJvPTcgdGhlbiB3cml0ZWxuICgnNycsJ0cnLCcgJywnNycsdGFibGVbaV0uc2VtZSk7IGVuZAogICAgIGVsc2UgaWYgc2V0dGViaW50YWJsZT10cnVlIHRoZW4gCiAgICAgICAgICAgYmVnaW4gZm9yIGk6PTEgdG8gMyBkbyBpZiBtYW5vW2ldLm51bWVybz03IHRoZW4gd3JpdGVsbiAoJzcnLCdHJywnICcsJzcnLG1hbm9baV0uc2VtZSk7IGVuZAogICAgIGVsc2UgaWYgZmF0dG9zY29wYT10cnVlIHRoZW4gIGJlZ2luIHdyaXRlKG1hbm9bcmljb3JkYWlkXS5udW1lcm8sbWFub1tyaWNvcmRhaWRdLnNlbWUsJyAnKTsgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZvciBqOj0xIHRvIDQgZG8gd3JpdGUodGFibGVbal0ubnVtZXJvLHRhYmxlW2pdLnNlbWUsJyAnKTsgd3JpdGVsbjtlbmQKICAgICBlbHNlICBpZiBzZXR0ZWlubWFubz10cnVlICB0aGVuIGJlZ2luIGlmIHNldHRlaW50YWJsZT10cnVlIHRoZW4gd3JpdGVsbiAgKG1hbm9baWRtYW5vc2V0dGVdLm51bWVybywgbWFub1tpZG1hbm9zZXR0ZV0uc2VtZSwnICcsdGFibGVbaWR0YWJsZXNldHRlXS5udW1lcm8sIHRhYmxlW2lkdGFibGVzZXR0ZV0uc2VtZSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJlZ2luCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZm9yIGg6PTEgdG8gNiBkbyBpZiAocHJlbmRvZHVlW2hdLnNvbW1hPTcpICB0aGVuIGJlZ2luIHRyb3ZhdG9zZXR0ZTE6PXRydWU7IHJpY29yZGFpZDo9aDsgZW5kOwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmIHRyb3ZhdG9zZXR0ZTE9dHJ1ZSB0aGVuIHdyaXRlbG4gKCdjaWFvJyxtYW5vW2lkbWFub3NldHRlXS5udW1lcm8sIG1hbm9baWRtYW5vc2V0dGVdLnNlbWUsJyAnLHRhYmxlW3ByZW5kb2R1ZVtyaWNvcmRhaWRdLmluZGljZTFdLm51bWVybywgdGFibGVbcHJlbmRvZHVlW3JpY29yZGFpZF0uaW5kaWNlMV0uc2VtZSwnICcsdGFibGVbcHJlbmRvZHVlW3JpY29yZGFpZF0uaW5kaWNlMl0ubnVtZXJvLCB0YWJsZVtwcmVuZG9kdWVbcmljb3JkYWlkXS5pbmRpY2UyXS5zZW1lKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmb3Igdzo9MSB0byA0IGRvIGlmIHRlcm5hW3ddPTcgdGhlbiBiZWdpbiB0cm92YXRvc2V0dGUyOj10cnVlOyByaWNvcmRhaWQyOj13OyBlbmQ7IAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmIHRyb3ZhdG9zZXR0ZTI9dHJ1ZSB0aGVuIHdyaXRlbG4gKCdoZWxsbycsbWFub1tpZG1hbm9zZXR0ZV0ubnVtZXJvLCBtYW5vW2lkbWFub3NldHRlXS5zZW1lLCcgJyx0YWJsZVsxXS5udW1lcm8sIHRhYmxlWzFdLnNlbWUsJyAnLHRhYmxlWzJdLm51bWVybywgdGFibGVbMl0uc2VtZSwnICcsdGFibGVbM10ubnVtZXJvLCB0YWJsZVszXS5zZW1lKTsgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlbmQgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlbmQ7IAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICB3cml0ZWxuKHJpY29yZGFpZCk7IGVuZC4KICAgICBlbHNlIGlmIHNldHRlaW50YWJsZT10cnVlIHRoZW4gYmVnaW4gIAogICAgIGVsc2UgYmVnaW4gCiAgICAKZW5kLgo=