64 { c: array [1..10] of integer; m, n : integer; procedure r (k, j : integer) begin k := k+1; j := j+2; end r; /* set c[n] to n */ m := 2; r(m, c[m]); write m, c[m]; } m:= m+1 c[m] := c[m] + 2 m c[ ] 2 1 2 3 4 5 6 7 8 9 10 3 1 2 5 4 5 6 7 8 9 10
{}