Imports System

Public Module Module1

    Public Sub Main()

        Dim orgbalance as INTEGER

        Dim withdrawn as DOUBLE

        Dim newbalance as DOUBLE

        console.writeline'("Enter balance Rs 10000")'

            '("orgbalance")' = '("console.readline")'

        '("console.writeline")' ('Sum of money withdrawn")

'("Withdrawn")' = 'console.readline'

        'newbalance' = '("org.balance - withdrawn")'

        'console.writeline' '("new.balance',& new.balance")'

    End Sub

End Module