Матрицы

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=3;
type mass=array[1..4,1..4] of integer;
 
procedure Umnosh(a1,a2,a3:mass);
var  c:mass;
     i,j,k:integer;
{begin
for i:=1 to n do
begin
for j:=1 to n do
a1[i,j]:=a1[i,j]*a2[i,j];
end;}
 
begin
 for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=0;
    for k:=1 to n do
    for i:=1 to n do
    for j:=1 to n do
      c[k,i]:=C[k,i]+(a1[i,j]*a2[j,i])*a3[i,k];
   WriteLn;
     for i:=1 to n do
      WriteLn(c[i,1],' ',c[i,2],' ',c[i,3]);
end;
 
 
 
 //end;
 
var a, b,z:mass;
    i,j:integer;
 
begin
Writeln('Matrica A:');
for i := 1 to n do
for j := 1 to n do
begin
Write('a[', i, ',', j,'] : ');
Readln(a[i, j]);
end;
 
begin
Writeln('Matrica B:');
for i := 1 to n do
for j := 1 to n do
begin
Write('b[', i, ',', j,'] : ');
Readln(b[i, j]);
end;
Writeln('Matrica Z:');
for i := 1 to n do
for j := 1 to n do
begin
Write('z[', i, ',', j,'] : ');
Readln(z[i, j]);
end;
   Umnosh(a,b,z);
   WriteLn;
   ReadLn;
   end;
   end.

uses crt;
type
matr=array[1..50,1..50] of integer;
procedure Vvod(var mt:matr;x:integer;c:char);
var i,j:integer;
begin
writeln('Введите ',x*x,' элементов матрицы ',c,':');
for i:=1 to x do
for j:=1 to x do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
end;
procedure Vyvod(var mt:matr;x:integer;c:string);
var i,j:integer;
begin
writeln('Mатрицa ',c,':');
for i:=1 to x do
 begin
   for j:=1 to x do
   write(mt[i,j]:6,' ');
   writeln;
 end;
end;
procedure UmnMatr(m1,m2:matr;x:integer;var m3:matr);
var p,j,i:integer;
begin
for p:=1 to x do
for j:=1 to x do
   begin
     m3[p,j]:=0;
     for i:=1 to x do
       begin
         m3[p,j]:=m3[p,j]+m1[p,i]*m2[i,j];
       end;
   end;
end;
var a,b,c,ab,abc:matr;
    k:integer;
begin
clrscr;
write('Введите размер матриц k=');
readln(k);
Vvod(a,k,'A');
Vvod(b,k,'B');
Vvod(c,k,'C');
clrscr;
Vyvod(a,k,'A');
Vyvod(b,k,'B');
UmnMatr(a,b,k,ab);
Vyvod(ab,k,'AB=A*B');
Vyvod(c,k,'C');
UmnMatr(ab,c,k,abc);
Vyvod(abc,k,'ABC=A*B*C');
readln
end.