MODULE bsp1; FROM RealInOut IMPORT ReadReal, WriteReal; FROM InOut IMPORT WriteLn; CONST dim = 5; VAR vector: ARRAY [1..dim] OF REAL; i: INTEGER; BEGIN (* Lese Vektor ein *) FOR i := 1 TO dim DO ReadReal(vector[i]); END; (* Gebe verdoppelten Vektor aus *) WriteLn; FOR i := 1 TO dim DO WriteReal(2.0 * vector[i], 0); WriteLn; END; END bsp1.