Lohn2

Imports System.Console
'Jocelyn Leppla
Module Program
    Dim Stundenzahl, Lohn, Überstunden, Überstundenlohn, Normallohn, Gesamtlohn As Double

    Sub Main()
        'Eingabe
        Write("Bitte geben sie ihre Stundenzahl ein: ")
        Stundenzahl = ReadLine()
        Write("Bitte geben sie ihren Lohn ein: ")
        Lohn = ReadLine()
        'Verarbeitung
        If Stundenzahl > 160 Then
            Überstunden = Stundenzahl - 160
        Else Überstunden = 0
        End If
        Überstundenlohn = Überstunden * Lohn * 1.12
            Normallohn = (Stundenzahl - Überstunden) * Lohn
            Gesamtlohn = Normallohn + Überstundenlohn
            'Ausgabe
            Write("Ihr Gesamtlohn betraegt: ")
            WriteLine(Gesamtlohn)
            ReadLine()



    End Sub
End Module