Imports System

Public Module Module1

    Public Sub Main()

        Dim CantHectareas,Metros,TerrenoSembrar as double

        Dim Pinos,Eucaliptos,Cedros as integer

        Console.WriteLine("Digite la cantidad de hectareas del terreno")

        CantHectareas=Console.ReadLine()

        Metros=CantHectareas*10000

        If Metros>1000000 then

            Pinos=Metros*0.6

            Cedros=Metros*0.3

            Eucaliptos=Metros*0.1

        Else 

            if Metros<=1000000 then

                Pinos=Metros*0.2

                Cedros=Metros*0.3

                Eucaliptos=Metros*0.5

            end if

        end if

        Pinos=(Pinos/10)*8

        Cedros=(Cedros/15)*15

        Eucaliptos=(Eucaliptos/18)*10

        TerrenoSembrar=Pinos+Cedros+Eucaliptos

        Console.WriteLine("La cantidad de Pinos para sembrar es de: " & Pinos)

        Console.WriteLine("La cantidad de Cedros para sembrar es de: " & Cedros)

        Console.WriteLine("La cantidad de Eucaliptos para sembrar es de: " & Eucaliptos)

        Console.WriteLine("La cantidad de terreno por sembrar es de: " & TerrenoSembrar)

    End Sub

End Module