Kubikzahl

Imports System.Console

Module Name
    'Vereinbarungsteil
    Dim Zahl, Ergebnis As Double
    Sub Main(args As String())
        'Eingabe
        Write("Geben Sie eine Zahl ein: ")
        Zahl = ReadLine()
        'Verarbeitung
        Ergebnis = Zahl ^ 3
        'Ausgabe
        Write("Das Ergbnis lautet: ")
        Write(Ergebnis)
        'Hält das Ausgabefenster offen
    End Sub
End Module