MODULE Flaeche; IMPORT Read, Write, Print, Math; VAR flaeche: REAL; PROCEDURE Dreieck (g,h: INTEGER): REAL; VAR f: REAL; BEGIN f := 0.5 * g * h; RETURN f; END Dreieck; PROCEDURE Rechteck (a,b: INTEGER): REAL; VAR f: REAL; BEGIN f := a * b; RETURN f; END Rechteck; PROCEDURE Kreis (r: INTEGER): REAL; VAR f: REAL; BEGIN f := r * r * Math.pi; RETURN f; END Kreis; BEGIN Write.Ln; flaeche := Rechteck(3,4); Print.F1("%0.2f", flaeche); Write.Ln; flaeche := Dreieck(3,4); Print.F1("%0.2f", flaeche); Write.Ln; flaeche := Kreis(3); Print.F1("%0.2f", flaeche); Write.Ln; Write.Ln; END Flaeche.