Algoritmo "cotrim"
Var
   pontos: inteiro
   golfeito: inteiro
   golsofrido: inteiro
   empate: inteiro
   saldogols: inteiro
   mediagol: real
   i: inteiro
   vitoria, impate: inteiro


Inicio
   vitoria <- 3
   impate <- 1
   pontos <- 0
   golfeito <- 0
   golsofrido <- 0
   mediagol <- 0

   para i <- 1 até 12 faça
      escreva("Jogo 1: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- vitoria

      escreva("Jogo 2: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 3: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 4: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 5: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 6: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 7: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 8: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 9: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 10: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 11: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreva("Jogo 12: ")
      leia (golfeito)
      leia (golsofrido)
      pontos <- pontos + golfeito

      escreval("mediagol: ", golfeito*12/2)
      escreval("pontos : ", vitoria+impate)
      escreval("Saldo : ", pontos+golsofrido)

Fimalgoritmo