100 2

Imports System.Console

Module Program
    'Vereinbarungsteil
    Dim Zahl, Ergebnis As Double

    Sub Main(args As String())
        'Eingabe
        Write("Bitte gebe eine Zahl ein um deren Quadratzahl zu erhalten: ") 'Erklärung für den Benutzer
        Zahl = ReadLine()
        'Verarbeitung
        Ergebnis = Zahl * Zahl
        'Ausgabe
        Write("Das Ergebnis lautet: ")
        WriteLine(Ergebnis)
        'Auswahlstruktur (zweiseitig)
        If Ergebnis >= 100 Then
            Write("Das Ergebnis ist größer gleich 100")
        Else
            Write("Das Ergebnis ist kleiner 100")
        End If

        ReadLine() 'Hält das Ausgabefenster offen
    End Sub
End Module