prog;

begin
  var a : array [5,5,5] of string;
  var b : int

  a[0,0,1] := "a";
  a[1,1,2] := "bccc";
  a[2,0,1] := "c////////";
  a[2,0,2] := "ddddd";
  a[4,0,0] := "e3333333333";

  b := 2;

  write a / 0;
  write a / b;
  write a / b / b / b;

end;
end prog