Условие задачи уже выложил...

[Рустем]

Это решенная она-ПОЧЕМУ НЕ РАБОТАЕТ????


Procedure VVOD(var x:mas);
Begin
writeln('Введите массив построчно');
for i:=1 to 3 do
for j:=1 to 3 do
read(x[i,j]); End;
BEGIN
VVOD(A);
VVOD(B);
Umnogenie(А,В,С);
Umnogenie(B,A,D);
k:=0;
for i:=1 to 3 do
for j:=1 to 3 do
if C[i,j]=D[i,j] then k:=k+1;
if k=9 then writeln('A*B=B*A')
else writeln('Произведение не перестановочно');
END.

[Sazary]

Ответил в другой ветке.
Но скажу и здесь: прочитайте правила!

[Рустем]

Спасибо огромное!!!!!
А как их можно удалить???

[Sazary]

А как их можно удалить???

Нет.
И вообще, такие темы довольно быстро закрывают. Так что, если вы действительно хотите получить помощь, создавайте одну тему в одном разделе с названием, максимально отражающим суть задачи.
Например, "Произведение матриц".

[Рустем]

Хорошо....