Quantidade de patas dos animais de uma fazenda - O desafio da fazenda em VB.NET - Desafio de Programação Resolvido em VB.NET

Informe a quantidade de galinhas: 8
Informe a quantidade de vacas: 3
Informe a quantidade de porcos: 11
Quantidade de animais: 22
Quantidade de patas: 72

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim quant_galinhas, quant_vacas, quant_porcos As Integer
    Dim quant_total_animais, quant_patas_total As Integer

    ' vamos ler a quantidade de cada animal
    Console.Write("Informe a quantidade de galinhas: ")
    quant_galinhas = Int32.Parse(Console.ReadLine())
    Console.Write("Informe a quantidade de vacas: ")
    quant_vacas = Int32.Parse(Console.ReadLine())
    Console.Write("Informe a quantidade de porcos: ")
    quant_porcos = Int32.Parse(Console.ReadLine())

    ' vamos calcular a quantidade de animais
    quant_total_animais = quant_galinhas + quant_vacas + quant_porcos
    Console.WriteLine("Quantidade de animais: " & quant_total_animais)

    ' vamos calcular a quantidade de patas
    quant_patas_total = quant_galinhas * 2
    quant_patas_total = quant_patas_total + (quant_vacas * 4)
    quant_patas_total = quant_patas_total + (quant_porcos * 4)
    Console.WriteLine("Quantidade de patas: " & quant_patas_total)

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

End Module