Reifenhandel Übung

'Sila Ogan Übung
imports system.console
Module Module1
Dim Stückzahl_Flegen, Stückpreis_Flegen, Stückzahl_Reifen, Stückpreis_Reifen, Rabattsatz, Reifenpreis, Rabattbetrag, Restbetrag_Reifen, Flegenpreis, Endpreis, Rechnungsbetrag, Sonderbonus, MwSt_Betrag As Double
Sub Main(args As String())
'Eingabe
Write("Bitte geben Sie die Stückzahl der Flegen an: ")
Stückzahl_Flegen=Readline()
Write("Bitte geben Sie den Stückpreis der Flegen an: ")
Stückpreis_Flegen=Readline()
Write("Bitte geben Sie die Stückzahl der Reifen an: ")
Stückzahl_Reifen=Readline()
Write("Bitte geben Sie den Stückpreis der Reifen an: ")
Stückpreis_Reifen=Readline()
'Verarbeitung
If Stückpreis_Reifen>= 2 then
Rabattsatz=0
Else
If Stückpreis_Reifen>= 4 then
Rabattsatz=2.5
Else
If Stückpreis_Reifen>=6 then
Rabattsatz=4
Else
If Stückpreis_Reifen>=8 then
Rabattsatz=8
Else
Rabattsatz=6.5
end If
Reifenpreis=Stückzahl_Reifen*Stückpreis_Reifen
Rabattbetrag=Reifenpreis*Rabattsatz/100
Rabatbetrag_Reifen= Reifenpreis- Rabattbetrag
Felgenpreis=Stückzahl_Felgen*Stückpreis_Flegen+Stückpreis_Flegen*5
Endpreis=Restbetrag_Reifen+Felgenpreis
If Endpreis>=500 then
Rechnungsbetrag=Endpreis-50
WriteLine("Sie erhalten einen Sonderbonus in Höhe von 50 Euro")
Else
Rechnungsbetrag=Endpreis
End If
MwSt_Betrag=Rechnungsbetrag/119*119
'Ausgabe
Write("Ihr Rechnungsbetrag lautet: ")
Writeline(math.round(Rechnungsbetrag,2))
Write("Ihr Mehrwertsteuerbetrag lautet: ")
Writeline(math.round(MwSt_Betrag,2))
Write("Ihr Rabattbetrag lautet: ")
Writeline(math.round(Rabattbetrag,2))
Readline()
    End Sub
End Module