Lohn2

Imports System.Console
'Übelacker
Module Module1
    'Vereinbarungsteil
    Dim Gesamtlohn, Stundenlohn, Überstunden, Stundenanzahl As Double
    Sub Main()
        'Eingabe
        Write("Geben Sie bitte Ihre Stundenanzahl an: ")
        Stundenanzahl = ReadLine()
        Write("Geben Sie bitte Ihren Stundenlohn ein: ")
        Stundenlohn = ReadLine()
        'Verarbeitung
        'Auswahl
        If Stundenanzahl > 160 Then
            Überstunden = Stundenanzahl - 160
            Gesamtlohn = Stundenanzahl * Stundenlohn + Überstunden * Stundenlohn * 12.5 / 100
        Else
            Gesamtlohn = Stundenanzahl * Stundenlohn
        End If
        'Ausgabe
        Write("Ihr Gesamtlohn beträgt: ")
        Write(Gesamtlohn)
        ReadLine()
    End Sub

End Module