·例 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;