Fliese1

Imports System.Console
Module Module1
    'Vereinbarungsteil
    Dim Länge, Breite, Quadratmeterpreis, Fliesenkosten, Verlegung, Gesamt As Double
    Sub Main()
        'Eingabe
        Write("Geben Sie die Breite ein: ")
        Breite = ReadLine()
        Write("Geben Sie die Länge ein: ")
        Länge = ReadLine()
        Write("Geben Sie den Quadratmeterpreis ein: ")
        Quadratmeterpreis = ReadLine()
        'Verarbeitung
        Fliesenkosten = Breite * Länge * Quadratmeterpreis
        Verlegung = Breite * Länge * 5
        Gesamt = Fliesenkosten + Verlegung
        'Ausgabe
        Write("Die Fliesenkosten betragen: ")
        WriteLine(Fliesenkosten)
        Write("Die Verlegung kostet: ")
        WriteLine(Verlegung)
        Write("Die Gesamtkosten betragen: ")
        Write(Gesamt)

        ReadLine()
    End Sub

End Module