begin
  integer m,n,o,p
  integerarray  q(m:n, o:p)
  integer i
  q((m+n)//2, (o+p)//2) = 42
  i = q((m+n)//2, (o+p)//2)
endofprogram