BARRAcUDA, Не сменил ты ничего

Дана квадратная матрица А порядка n

Найти матрицу B=A^m где m целое число

Вычислить сумму отрицательных элементов полученной матрицы расположенных под ее главной диогональю в столбцах с счетными номерами

Program p1;
Var A,B:array [1..10, 1..10] of Real;
Begin
Writeln ('введите размерность матрицы');
Readln (n);
Writeln (Введите степень матрицы');
Readln (m);
For i=1 to n do
Begin
Writeln ('Введите',n,'ую строку матрицы, ставя "" между ее элементами');
For j=1 to n do
Read (A[i,j]);
Readln;
End;
For k=1 to m do
Begin
For i=1 to n do
For j=1 to n do
Begin
B[i,j]:=0;
For s=1 to n do
B [i,j]:=B[i,j]+a[i,s]*a[s,j];
End;
For i=1 to n do
For j=1 to n do
A[i,j]:=B[i,j];
End;
S:=0;
For i=1 to n do
Begin
For j=1 to n do
Begin
If(i<j)and(j div 2=0)and(B[i,j]<0) then s:=s+B[i,j];
Write(B[i,j],' ');
End;
Readln;
End;
Writeln('сумма искомых элементов',s);
Readln;
End.

Тему перенёс из подраздела ОС/Игры/Софт в подраздел Программирование!