prog;

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

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

  b := "zzzZZZZZZ";

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

end;
end prog