Imports System

Public Module Module1

    Public Sub Main()

        Dim base as Integer

        Dim altura as Integer

        Dim area as Integer

        Dim perimetro as Integer

        Console.WriteLine("Ingrese base del rectangulo")

        base = Console.ReadLine()

        Console.WriteLine("Ingrese altura del rectangulo")

        altura = Console.ReadLine()

        area = base * altura

        perimetro = 2 * (base + altura)

        Console.WriteLine("El area del rectangulo es "+ area.ToString())

        Console.WriteLine("El perimetro del rectangulo es "+ perimetro.ToString())

    End Sub

End Module