Ler a idade e o peso de 10 pessoas e mostrar a quantidade de pessoas com mais de 80 quilos e a média das idades - Desafio de Programação Resolvido em Portugol

Informe a idade da 1.a pessoa: 95
Informe o peso da 1.a pessoa: 83

Informe a idade da 2.a pessoa: 45
Informe o peso da 2.a pessoa: 115

Informe a idade da 3.a pessoa: 83
Informe o peso da 3.a pessoa: 76

Informe a idade da 4.a pessoa: 19
Informe o peso da 4.a pessoa: 79

Informe a idade da 5.a pessoa: 40
Informe o peso da 5.a pessoa: 93

Quantidade de pessoas com mais de 80 quilos: 3
Média das idades das pessoas: 56.4

// Ler a idade e o peso de 10 pessoas em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro quant_acima_80_kg, soma_idades
    inteiro idade
    real peso

    quant_acima_80_kg = 0 // quantidade de pessoas acima de 80 quilos
    soma_idades = 0 // soma das idades para depois obter a média

    // vamos ler os dados das 5 pessoas
    para (inteiro i = 1; i <= 5; i++) {
      escreva("Informe a idade da ", i, ".a pessoa: ")
      leia(idade)
      escreva("Informe o peso da ", i, ".a pessoa: ")
      leia(peso)

      // vamos somar mais esta idade
      soma_idades = soma_idades + idade

      // esta pessoa possui mais de 80 quilos?
      se (peso > 80) {
        // aumenta o contador de pessoas acima de 80 quilos
        quant_acima_80_kg = quant_acima_80_kg + 1
      }

      // adiciona uma quebra de linha
      escreva("\n")
    }

    // e agora mostramos o resultado
    escreva("Quantidade de pessoas com mais de 80 quilos: ", quant_acima_80_kg)
    escreva("\nMédia das idades das pessoas: ", (soma_idades / 5.0)) 
  }
}