Imports System

Public Module Module1

    Public Sub Main()

        Dim panjang, lebar, luas As Integer

        Console.WriteLine("MENCARI LUAS PERSEGI PANJANG")

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

        Console.WriteLine("Masukkan Panjang : ")

        panjang = Console.ReadLine()

        Console.WriteLine("Masukkan Lebar   : ")

        lebar = Console.ReadLine()

        luas = panjang * lebar

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

    End Sub

End Module