Erstellt: Underprogramm Berechnung und Ausgabe