RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/ALGOL-68/loop-over-multiple-arrays-simultaneously.alg

[]UNION(CHAR,INT) x=("a","b","c"), y=("A","B","C"),
z=(1,2,3);
FOR i TO UPB x DO
  printf(($ggd$, x[i], y[i], z[i], $l$))
OD