Lohn 2

Imports System.Console
'Mandigo
Module Program
    Dim Stundenlohn, Stundenanzahl, Gesamtlohn, Überstunden As Double

    Sub Main()

        Write("Bitte geben Sie ihren Stundenlon ein: ")
        Stundenlohn = ReadLine()
        Write(" Bitte geben Sie ihre Stundenanzahl ein: ")
        Stundenanzahl = ReadLine()

        If Stundenanzahl > 160 Then
            Überstunden = Stundenanzahl - 160
            Gesamtlohn = Stundenanzahl * Stundenlohn + Überstunden * Stundenlohn * 12.5 / 100


        Else
            Gesamtlohn = Stundenlohn * Stundenanzahl
        End If

        Write("Ihr Gesamtlohn beträgt: ")
        Write(Gesamtlohn)
        ReadLine()


    End Sub
End Module