MODULE Mehrwertsteuer; FROM RealInOut IMPORT ReadReal, WriteReal, WriteFloat; FROM InOut IMPORT WriteString, WriteLn; CONST MWStSatz = 0.15; VAR Preis, MWSt : REAL; BEGIN WriteString("Geben Sie den Preis ein: "); ReadReal(Preis); MWSt := Preis * MWStSatz; WriteLn; WriteString("Die Mehrwertsteuer betraegt (Float): "); WriteFloat(MWSt, 8, 2); WriteLn; WriteString("Die Mehrwertsteuer betraegt (Real) : "); WriteReal(MWSt, 10); WriteLn END Mehrwertsteuer.