MODULE const EXPORTS Main;
IMPORT IO, Fmt;

VAR
    zahl1 : INTEGER;		(* noch ne int variable			*)
    zahl2 : INTEGER := 5;	(* int variable initialisiert mit 5	*)        

CONST
    konst_int = 5;		(* integer konstante mit wert 5  	*)
    konst_rel = 5.0; 		(* real konstante mit wert 5(.0) 	*)

    sec_int   = konst_int;	(* geht auch - initialisierung durch 	*)
				(* eine andere konstante		*)
				

(*  ACHTUNG, folgendes geht nicht !!! :
    okt_int   = zahl1;		(* falsch, da variable keinen wert hat  *)
    nxt_int   = zahl2;		(* auch falsch, obwohl variable 	*)
				(* initialisiert ist - modula 3 halt ;) *)
*)    

PROCEDURE printn(t : TEXT; z : INTEGER) =
BEGIN
    IO.Put(t); IO.PutInt(z); IO.Put("\n");
END printn;


BEGIN
    printn("zahl1       : ", zahl1);
    printn("zahl2       : ", zahl2);
    printn("konst_int   : ", konst_int);
    IO.Put("konst_rel   : " & Fmt.Real(konst_rel) & "\n");
    
    printn("sec_int     : ", sec_int);


END const.