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.

