{* Задача 188 *}

Unit ZADACH188;
Interface
Implementation
Begin
 writeln('Произведение элементов главной диагонали трехмерного массива
');
End.

Program n24;

Uses zadach188.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Постоянные значения *}
  n = 10;
Type {* Типы переменных *}
  cube = Array [1..n, 1..n, 1..n] Of integer;
Var {* В работе нам потребуются переменные: *}
  c   : cube;
  i   : integer;
  j   : integer;
  k   : integer;
  res : integer;
Begin
  clrscr; {* Очистка экрана *}
  randomize;
  res := 1;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
      For k := 1 To n Do {* Переменная k увеличивается с 1 до n *}
        c[i, j, k] := random(100);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    res := res * c[i, i, i];
  write ('result= ', res : 12);
End.