Program Copa; Var oitavas : String[16]; quartas : String[8]; semifinal : String[4]; final : String[2]; campeao : String[1]; Function Rodada(jogos : Integer; entrada : String) : String; Var i, primeiro, segundo : Integer; saida : String; Begin saida := ''; For i := 1 To jogos Do Begin ReadLn(primeiro, segundo); If (primeiro > segundo) Then saida := saida + entrada[i * 2 - 1] Else saida := saida + entrada[i * 2]; End; Rodada := saida; End; Begin oitavas := 'ABCDEFGHIJKLMNOP'; quartas := Rodada(8, oitavas); semifinal := Rodada(4, quartas); final := Rodada(2, semifinal); campeao := Rodada(1, final); WriteLn(campeao); End.