/* Gruppe 1 /* Haus�bung 3 - Programm 1 */ */
r1 = .Rechteck~New; r1~Breite = 3; r1~Laenge = 4
SAY r1~Flaeche
::CLASS Rechteck
::METHOD Flaeche
    EXPOSE Breite Laenge
    return Breite * Laenge
::ATTRIBUTE Breite
::ATTRIBUTE Laenge