B procedure A(m, n integer) begin real z; array bm:n; begin end end,• 例 procedure A(m,n:integer); • begin real z; • array B[m:n]; • begin • · • · • · • end; • end;