Lohn1

Imports System.Console
'Jocelyn Leppla
Module Module1
    Dim Normalstunden, Überstunden, Bruttolohn, Stundenlohn As Double
    Sub Main()
        'Eingabe
        Write("Bitte geben sie ihre Normalstunden ein: ")
        Normalstunden = ReadLine()
        Write("Bitte geben sie ihre Überstunden ein: ")
        Überstunden = ReadLine()
        Write("Bitte geben sie ihren Stundenlohn ein: ")
        Stundenlohn = ReadLine()
        'Verarbeitung
        Bruttolohn = Stundenlohn * Normalstunden + Stundenlohn * Überstunden * 1.3
        'Ausgabe
        Write("Ihr Bruttolohn betraegt: ")
        WriteLine(Bruttolohn)

        ReadLine()

    End Sub
End Module