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 VB.NET

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

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' quantidade de pessoas acima de 80 quilos
    Dim quant_acima_80_kg As Integer = 0
    ' soma das idades para depois obter a média
    Dim soma_idades As Integer = 0

    ' vamos ler os dados das 5 pessoas
    For i As Integer = 1 To 5
      Console.Write("Informe a idade da " & i & ".a pessoa: ")
      Dim idade As Integer = Int32.Parse(Console.ReadLine())
      Console.Write("Informe o peso da " & i & ".a pessoa: ")
      Dim peso As Double = Double.Parse(Console.ReadLine())

      ' vamos somar mais esta idade
      soma_idades = soma_idades + idade

      ' esta pessoa possui mais de 80 quilos?
      If peso > 80 Then
        ' aumenta o contador de pessoas acima de 80 quilos
        quant_acima_80_kg = quant_acima_80_kg + 1
      End If

      ' adiciona uma quebra de linha
      Console.WriteLine()
    Next

    ' e agora mostramos o resultado
    Console.WriteLine("Quantidade de pessoas com mais de 80 quilos: " &
      quant_acima_80_kg)
    Console.WriteLine("Média das idades das pessoas: " & (soma_idades / 5.0))

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module