Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
<span>Вот как он устроен.
Для начала каждой цифре от 1 до 9 плюс 0 придаются определенные буквенные значения, некоторые люди видят глубокий, почти мистический смысл в соотношении букв и цифр. Другие утверждают, что в этом нет вообще никакого смысла и эти соотношения абсолютно произвольны. Мы занимаем промежуточную позицию. Если вы считаете, что вы видите смысл в буквенных значениях цифр, это замечательно. Это может помочь вам лучше запомнить эти соотношения. Если вы не видите никакой связи, это тоже неплохо. </span><span>1 = т или д
2 = н
4 = ч или р
5 = л
6 = ш, щ или ж
7 = г или к
8 = в или ф
9 = б или п
0 = с или з</span>
Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.
uses crt;
var i,n,m:integer;
begin
read(n);
m:=n;
i:=1;
while i<=m do
begin
if n mod i=0 then
begin
write(i,' ');
m:=(n div i);
end;
i:=i+1;
end;
write(n);
<span>end.</span>
