Imports System

Public Module Module1

    Public Sub Main()

        Dim width as decimal

        Dim depth as decimal

        Dim length as decimal

        Dim volume as decimal

        Const litres as integer = 1000

        Console.WriteLine("Enter the width of aquarium")

        width= Console.ReadLine()

        Console.WriteLine ("Enter the depth of aquarium")

        depth =  Console.ReadLine()

        Console.WriteLine("Enter the length of the aquarium")

        length= Console.ReadLine()

        volume = (width*depth*length)/litres

        Console.WriteLine("Volume of the aquarium = " & volume & " " & "litres")

    End Sub

End Module

​

'Pseudocode

'-----------

'REAL: height <--0

'REAL: depth <--0

'REAL: length <--0

'REAL: volume <--0

'INTEGER: litres <--1000

'

'OUTPUT"Enter the width of the aquarium"

'INPUT width

​

'OUTPUT"Enter the depth of the aquarium"

'INPUT depth

​

'OUTPUT "Enter the length of the aquarium"

'INPUT length

​

'volume <-- (width*depth*length)/litres

'OUTPUT "The volume of the aquarium is", volume, "litres"