{ > Src.Array } program array_test (output);

type frig = array [0..3,0..3] of real;

var i,j : integer;
    a,b : frig;

procedure jim (c : frig; var d : frig);
var i,j : integer;
begin
  for i := 0 to 3 do
    for j := 0 to 3 do c[i,j] := i*10+j;
  d := c
end;


begin
  jim (a, b);
  for i:= 0 to 3 do
    for j := 0 to 3 do
      writeln (i, j, (b[i,j] = i*10+j))
end.