Даны матрицы Y (5,3) , Z(5,3) , W (5,4) которые находятся в файлах f1, f2 и f3соответственно

const
  ym=5; yn=3; zm=ym; zn=yn; wm=zm; wn=4; xm=yn; xn=zn; dm=zn; dn=wn; WW=7;
var
  y: array [1..ym,1..yn] of Integer;
  z: array [1..zm,1..zn] of Integer;
  w: array [1..wm,1..wn] of Integer;
  x: array [1..xm,1..xn] of Integer;
  d: array [1..dm,1..dn] of Integer;
  i, j, k, p, t: Integer;
begin
  Assign(input,'f1'); Reset(input); for i:=1 to ym do for j:=1 to yn do Read(y[i,j]); Close(input);
  Assign(input,'f2'); Reset(input); for i:=1 to zm do for j:=1 to zn do Read(z[i,j]); Close(input);
  Assign(input,'f3'); Reset(input); for i:=1 to wm do for j:=1 to wn do Read(w[i,j]); Close(input);
  for i:=1 to xm do for j:=1 to xn do begin t:=0; for k:=1 to ym do Inc(t,y[k,i]*z[k,j]); x[i,j]:=t; end;
  for i:=1 to dm do for j:=1 to dn do begin t:=0; for k:=1 to zm do Inc(t,z[k,i]*w[k,j]); d[i,j]:=t; end;
  WriteLn('Y ='); for i:=1 to ym do begin for j:=1 to yn do Write(y[i,j]:WW); WriteLn; end;
  WriteLn('Z ='); for i:=1 to zm do begin for j:=1 to zn do Write(z[i,j]:WW); WriteLn; end;
  WriteLn('W ='); for i:=1 to wm do begin for j:=1 to wn do Write(w[i,j]:WW); WriteLn; end;
  WriteLn('X ='); for i:=1 to xm do begin for j:=1 to xn do Write(x[i,j]:WW); WriteLn; end;
  WriteLn('D ='); for i:=1 to dm do begin for j:=1 to dn do Write(d[i,j]:WW); WriteLn; end;
  t:=x[1,1]; for i:=1 to xm do for j:=1 to xn do if t<x[i,j] then t:=x[i,j]; Inc(p,t);
  t:=y[1,1]; for i:=1 to ym do for j:=1 to yn do if t<x[i,j] then t:=y[i,j]; Inc(p,t);
  t:=w[1,1]; for i:=1 to wm do for j:=1 to wn do if t<x[i,j] then t:=w[i,j]; Inc(p,t);
  for i:=1 to ym do y[i,2]:=y[i,2]*p;
  for i:=1 to zm do z[i,3]:=z[i,3]*p;
  for i:=1 to wm do w[i,4]:=w[i,4]*p;
  WriteLn('Y''='); for i:=1 to ym do begin for j:=1 to yn do Write(y[i,j]:WW); WriteLn; end;
  WriteLn('Z''='); for i:=1 to zm do begin for j:=1 to zn do Write(z[i,j]:WW); WriteLn; end;
  WriteLn('W''='); for i:=1 to wm do begin for j:=1 to wn do Write(w[i,j]:WW); WriteLn; end;
  Assign(output,'f1'); Rewrite(f1); for i:=1 to xm do begin for j:=xn do Write(' ',x[i,j]); WriteLn; end; Close(output);
  Assign(output,'f2'); Rewrite(f2); for i:=1 to ym do begin for j:=yn do Write(' ',y[i,j]); WriteLn; end; Close(output);
  Assign(output,'f3'); Rewrite(f3); for i:=1 to wm do begin for j:=wn do Write(' ',w[i,j]); WriteLn; end; Close(output);
  Assign(output,'f4'); Rewrite(f4);
  t:=0; for i:=1 to ym do for j:=1 to yn do if y[i,j]>0 do Inc(t,y[i,j]); Write(' ',t);
  t:=0; for i:=1 to zm do for j:=1 to zn do if z[i,j]>0 do Inc(t,z[i,j]); Write(' ',t);
  t:=0; for i:=1 to wm do for j:=1 to wn do if w[i,j]>0 do Inc(t,w[i,j]); Write(' ',t);
  t:=0; for i:=1 to xm do for j:=1 to xn do if x[i,j]>0 do Inc(t,x[i,j]); Write(' ',t);
  t:=0; for i:=1 to dm do for j:=1 to dn do if d[i,j]>0 do Inc(t,d[i,j]); Write(' ',t);
  WriteLn; Close(output);
end.