MODULE Verzwickt; FROM InOut IMPORT WriteString, WriteInt, WriteLn; (* * -- Beispielprogramm zur Veranschaulichung der Rolle * -- verschiedener Parameternamen *) VAR k, l, m : INTEGER; PROCEDURE TueWas( x : INTEGER; VAR y : INTEGER); VAR z : INTEGER; BEGIN z := x; m := 17; y := z + 2; x := x + 5 END TueWas; BEGIN (* -- Beispielprogramm 'Verzwickt' -- *) l := 1; k := 2; m := 0; TueWas(l, k); WriteString("Werte l, k, m ... : "); WriteInt(l, 4); WriteInt(k, 4); WriteInt(m, 4); WriteLn END Verzwickt.