100

Imports System.Console

Module Module1

    Dim Eingabe, Ergebnis As Double

    Sub Main()
        'Eingabe
        Write("Bitte eine Zahl eingeben: ")
        Eingabe = ReadLine()
        'Verarbeitung
        Ergebnis = Eingabe ^ 2
        'Ausgabe
        Write("Der Quadratwert lautet: ")
        WriteLine(Ergebnis)

        ReadLine()
    End Sub
End Module