const

  n = 3;

var

  a:array[1..n, 1..n, 1..n] of integer; //объявляем трехмерный массив размерности N x N x N

  i, j, k, max:integer;

begin

  randomize;

  max := -maxint - 1; {присваисваем maxrcbvfkmyjve 'ktvtyne минимальное возможное значения типа integer}

  for i := 1 to n do { с помощью трех циклов проходим по всем элементам массива, чобственно тоже самое что и с двумерным массивом только добаляемтся еще 1 цикл}

  begin

    writeln;

    writeln('i = ', i); {выводм масссива производится в виде нескольких квадратных матриц тут указывается номер каждой квадратной матрицы}

    for j := 1 to n do

    begin

      for k := 1 to n do

      begin

        a[i, j, k] := random(21) - 10; // генерируем случайное значение от -10 до 10

        if a[i, j, k] > max then { если больше текущего максимального то станвится новым максимальным}

          max := a[i, j, k];

        write(a[i, j, k]:4); //выводим элемент массива

      end;

      writeln;

    end;

  end;

  writeln('Максимальный элемент массива равен ', max);

end.