Lohn

Imports System.Console
'Sila Ogan

Module Programm
Dim Normalstunden, Überstunden, Stundenlohn, Normallohn, Überstundenlohn, Bruttolohn As Double
    Sub Main(args As string())
        Write("Geben Sie ihre Normalstunden an : ")
        Normalstunden=Readline()
        Write("Geben Sie ihre Überstunden an: ")
        Überstunden= Readline()
        Write("Geben Sie Ihren Stundenlohn an: ")
        Stundenlohn= Readline()
        'Verarbeitung
        Normallohn= Normalstunden*Stundenlohn
        Überstundenlohn= Überstunden*1.3*Stundenlohn
        Bruttolohn=Normallohn+Überstundenlohn
        'Ausgabe
        Write("Ihr Bruttolohn lauet: ")
        Writline(Bruttolohn)
        Readline()
    End Sub
End Module