Imports System

Public Module Module1

    Public sub Main()

        Dim panjang,lebar,luas As Integer

        Console.WriteLine("MENCARI LUAS PERSEGI PANJANG")

        Console.WriteLine("============================")

        Console.WriteLine("Masukan Panjang : ")

        panjang = Console.ReadLine()

        Console.WriteLine("Masukan Lebar : ")

        lebar = Console.ReadLine()

        luas = panjang * lebar

        Console.WriteLine("Jadi, Luas Persegi Panjang Adalah " & luas)

    End sub

End Module