Здравствуйте, Olimpia!

В приложении программа умножающая матрицу А на матрицу В.
Удачи!

Приложение:
const
n=3;
var
a,b,c:array[1..n,1..n]of integer;
x,y,z:integer;
begin
{генерируем первую матрицу и выводим}
randomize;
for x:=1 to n do
begin
for y:=1 to n do
begin
a[x,y]:=random(20);
write(a[x,y]:5);
end;
writeln;
end;
writeln;
{генерируем вторую матрицу и выводим}
for x:=1 to n do
begin
for y:=1 to n do
begin
b[x,y]:=random(20);
write(b[x,y]:5);
end;
writeln;
end;
writeln;
{умножаем матрицы и выводим}
for x:=1 to n do
begin
for y:=1 to n do
begin
c[x,y]:=0;
for z:=1 to n do
c[x,y]:=c[x,y]+a[x,z]*b[z,y];
write(c[x,y]:5);
end;
writeln;
end;
readln;
end.