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

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