MODULE procedure EXPORTS Main;
IMPORT IO, Fmt;


PROCEDURE sum (x,y : INTEGER) =
BEGIN
    IO.Put("Die Summe von " & Fmt.Int(x) & " und " & Fmt.Int(y) & " ist : " & Fmt.Int(x+y) & "\n");
END sum;

PROCEDURE sum2(x,y : INTEGER) : INTEGER =
BEGIN
    RETURN x+y;
END sum2;

PROCEDURE sum3(x,y : INTEGER) =
BEGIN
    IO.Put("Die Summe von " & Fmt.Int(x) & " und " & Fmt.Int(y) & " ist : " & Fmt.Int(sum2(x,y)) & "\n");
END sum3;

PROCEDURE print_sum(sum : INTEGER) =
BEGIN
    IO.Put("Die Summe betraegt : " & Fmt.Int(sum) & "\n");
END print_sum;
    

VAR 
    summe : INTEGER;

BEGIN
    (* Variante 1 *)
	sum(5,6);

    (* Variante 2.1 *)
	summe := sum2(5,6);
	print_sum(summe);
	
    (* Variante 2.2 *)
	print_sum(sum2(5,6));
	
    (* Variante 3 *)
	sum3(5,6);
END procedure.