prog;

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

  a[0] := "a";
  a[1] := "b";
  a[2] := "c";
  a[3] := "d";
  a[4] := "e";

  b[0] := "z";
  b[1] := "zz";
  b[2] := "zzZ";
  b[3] := "zzZZ";
  b[4] := "zzZZZ";

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

end;
end prog