prog;

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

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

  b := "zzzZZZZZZ";

  write a + b;
  write a + a;
  write b + b;
  write a + b + b + a;

end;
end prog