MODULE zahlen EXPORTS Main;
IMPORT IO, Fmt;

VAR
    zahl1  : INTEGER;		(* noch ne int variable			  *)
    zahl2  : INTEGER := 5;	(* int variable initialisiert mit 5	  *)        
    
    float1 : REAL;		(* eine real variable 			  *)
    float2 : REAL := 5.0;	(* eine real variable mit 5 initialisiert *)

    int_summe : INTEGER;
    flt_summe : REAL;

BEGIN
    
    IO.Put("Ein paar Spielereien : ");
    
    IO.Put("zahl1	= " & Fmt.Int(zahl1));	    (* Fmt.Int() wandelt einen  *)	
    IO.Put("zahl2	= " & Fmt.Int(zahl2));      (* Integer in TEXT		*)
    
    IO.Put("float1	= " & Fmt.Real(float1));    (* Fmt.Real() wandelt eine  *)
    IO.Put("float2	= " & Fmt.Real(float2));    (* Gleitkommazahl in TEXT	*)

(* Addition von einem Int und einer Real Zahl, Ergebnis Int  *)
    int_summe := zahl2 + TRUNC(float2);
    IO.Put("int_summe	= " & Fmt.Int(int_summe) & "");
    
(* Addition von einem Int und einer Real Zahl, Ergebnis Real *)
    flt_summe := FLOAT(zahl2) + float2;
    IO.Put("flt_summe	= " & Fmt.Real(flt_summe) & "");

END zahlen.