Записать трехмерный массив как записать трехмерный массив в ввести/вывести его (язык любой из pascal, c++, c#)

Program zhn;
var
  i1,i2,i3,m,n,i:integer;
  a:array[1..20,1..20,1..20] of integer;
begin

 
  for i1:= 1 to 20 do begin
    for i2:= 1 to 20 do begin
      for i3:= 1 to 20 do begin
        a[i1,i2,i3]:=random(100);
        write(a[i1,i2,i3],' ');
      end;
    end;
  end;
end.