Imports System.console

Public Module Module1

    dim length as decimal

    dim height as decimal

    dim width as decimal

    dim volume as decimal

    Public Sub Main()

        WriteLine("please enter the length")

        length=readline

        writeline("please enter the height")

        height=readline

        writeline("please enter the width")

        width=readline

        volume=(length*height*width)

        writeline ("the volume is " & volume)

    End Sub

End Module