T-shirts

'Übung Sila Ogan
Imports System.Console

Module Programm
Dim Anzahl, Rabattbetrag1, Rabattbetrag2, Rabattbetrag3, Rabattbetrag4, Endpreis As Double
    Sub Main(args As String)
    'Eingabe
        write("Bitte geben Sie die Anzahl der T-shirts an: ")
        Anzahl=Readline()
        'Vereibeitung
        Endpreis= Anzahl*10.5
        Rabattbetrag1= Endpreis*2/100
        Rabattbetrag2= Endpreis*4/100
        Rabattbetrag3= Endpreis*5/100
        Rabattbetrag4= Endpreis*8/100
        'Ausgabe
        Write("Ihr Endpreis lautet: ")
        Writeline(Endpreis)
        Write("Ihr Preis mit 2% Rabatt: ")
        Writeline(Endpreis-Rabattbetrag1)
        Write("Ihr Preis mit 4% Rabatt: ")
        Writeline(Endpreis-Rabattbetrag2)
        Write("Ihr Preis mit 5% Rabatt: ")
        Writeline(Endpreis-Rabattbetrag3)
        Write("Ihr Preis mit 8% Rabatt: ")
        Writeline(Endpreis-Rabattbetrag4)
        Readline()

    End Sub
End Module