Записать трехмерный массив
Как записать трехмерный массив в ввести/вывести его (язык любой из 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.