DEFINITION MODULE RealIO; VAR Done : BOOLEAN; PROCEDURE ReadReal(VAR x:REAL); PROCEDURE WriteReal(x:REAL;n:CARDINAL); (* n gibt die Stellenzahl insgesamt an *) END RealIO.