algoritmo "missaoimpossivel01"
var
   time: vetor [1..3] de Caractere
   z, x:inteiro
inicio
 Escreval ("===============================")
 Escreval ("CAMPEONATO DE FUTEBOL AMERICANO")
 Escreval ("===============================")
      Para x <- 1 ate 3 faca
           Escreva ("Nome do", x, "o time: ")
           Leia (time[x])
      FimPara
      Escreval ("-----------------")
 Escreval ("TABELA DE PARTIDAS")
 Escreval ("-----------------")
      Para z <- 1 ate 3 faca
        Para x <- 1 ate 3 faca
             Se (time[z] <> time[x]) Entao
             Escreval (time[z]:10, " vs ":7, time[x])
             FimSe
        FimPara
      FimPara
fimalgoritmo