Fliese.1

Imports System.Console
'Seda Dalkilic
Module Module1
    Dim Länge, Breite, QMPreis, Verlegekosten, Endpreis, Fläche As Double
    Sub Main()
        'Eingabe
        Write("Bitte die länge eingeben: ")
        Länge = ReadLine()
        Write("Bitte die Breite eingeben: ")
        Breite = ReadLine()
        Write("Bitte den QMPreis eingeben: ")
        QMPreis = ReadLine()
        'Verarbeitung
        Fläche = Länge * Breite
        Verlegekosten = Fläche * 5
        Endpreis = Fläche * QMPreis + Verlegekosten
        'Ausgabe
        Write("Ihre Verlegekosten betragen: ")
        WriteLine(Verlegekosten)
        Write("Bitte zahlen Sie: ")
        WriteLine(Endpreis)

        ReadLine()
    End Sub
End Module