Нужна программа вывода трехмерного массива в паскале!

var  i,j,k:integer;  a:array[1..3,1..4,1..5]of integer;beginfor i:=1 to 3 do  begin  writeln('Слой ',i);  for j:=1 to 4 do    begin    for k:=1 to 5 do      begin      a[i,j,k]:=random(10);      write(a[i,j,k],' ');      end;    writeln;    end;  writeln;  end;end.