кто знает Pascal? (перенесено)

Есть код, нужно проверить его! Помогите пожалуйста! Буду очень благодарен! Не знаю куда обратиться
Добавлено 06.05.14 в 22:11:44:
Сам код

Прикрепленные файлы:
PROFIWM_COM_5444_756728_Fajl.txt (1.59 кб)

кодировку смени

Stalkist, utf-8 кодировка

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

Я просто щас сс тела! Вроди сменил

Прикрепленные файлы:
PROFIWM_COM_5444_756734_Fajl.txt (1.59 кб)

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

Дана квадратная матрица А порядка 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.

Тема закрыта для обсуждения!