Нужно написать программу с процедурами и оптимизировать . Программа по этой матрице K=N+3*(A^T*B-C). - вопрос №2262610

program M1;

type T=array[1..10,1..10]of real;

var k,i,j:integer;S:real;

Q,A,AT,B,C,E,F,N:T;

Begin

for i:=1 to 4 do

begin

for j:=1 to 4 do Read(N[i,j]);

Readln;

end;

for i:=1 to 4 do

begin

for j:=1 to 4 do Read(A[i,j]);

Readln;

end;

for i:=1 to 4 do

for j:=1 to 4 do AT[i,j]:=A[j,i];

for i:=1 to 4 do

begin

for j:=1 to 4 do Read(B[i,j]);

ReadLn;

end;

for i:=1 to 4 do

begin

for j:=1 to 4 do Read(C[i,j]);

Readln;

end;

for i:=1 to 4 do

for j:=1 to 4 do

begin

S:=0;

for k:=1 to 4 do

S:=S+AT[i,k]*B[k,j];

F[i,j]:=S

end;

for i:=1 to 4 do

for j:=1 to 4 do E[i,j]:=F[i,j]-C[i,j];

for i:=1 to 4 do

for j:=1 to 4 do Q[i,j]:=N[i,j]+3*E[i,j];

for i:=1 to 4 do

begin

for j:=1 to 4 do write(Q[i,j]);

writeln

end;

end.