fork download
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.

Success #stdin #stdout 0s 5280KB
stdin
5G 7S 8S
2G 3C 1S 2C
stdout
7S 8S
8S

3C 1S 2C
1S 2C
2C

7S707070