LiveStreet CMS

Это не к нам, мы не имеем к этому сайту никакого отношения.

Репы на гитхабе нет?

О «срочных делах» прилично предупреждать.

Мол, так и так, мужик, извини, у нас протечка, прорвало трубу у соседей сверху, бегаем как ужаленные, подставляем тазики.

Ага. Понятно. Спасибо за указание, где искать проблему.

Тег cut у нас вставляется автоматом, хотим мы того или нет…

Надо. Но админу этим заниматься не хочется, а остальные перетопчутся. Глянь личку, там детали.

Я там не админ, к сожалению. Так, простой смертный. Админ у нас птица гордая, его надо очень сильно пнуть, чтобы он что-то починил.

Сайт у нас о настольных ролевых играх.

И я не помню, чтобы в паскале можно было указывать массивы динамически. По крайней мере в 7.0 нельзя было. Объявляли двумерный массив с размерностью до

sqrt(65536/(sizeof integer))

…
но реально, в учебных целях — хватает строгого объявления массива

var a: array [1..10] of integer ;

Хм. Да. Но в тогда и ниже надо писать:

if (p = 0) then
writeln('В матрице нет чисел в диапазоне [1..10]')
else ...

p := 0;
...
if (p = 0) then
                p = a[i, j];
            else
                p := p * a[i, j];

Зачем? О.о

p := 1;
...
if (....) then p := p * a[i, j];