program labo4a;

CONST
 M=4;

TYPE
 Mtr=Array[1..M,1..M] of Real;
 Vct=Array[1..M] of Real;

VAR
 A,B,C:Mtr;
 Max:Vct;

Procedure Enter_Matrix(Nm:Char; var Em:Mtr);
var i,j:Byte;
begin
 For i:=1 to M do
  For j:=1 to M do
   begin
    Write(Nm,'[',i,',',j,']= ');
    ReadLn(Em[i,j]);
   end;
 WriteLn;
end;

Procedure Show_Matrix(Nm:Char;Sm:Mtr);
var i,j:Byte;
begin
 WriteLn('Matrix '+Nm+':');
 For i:=1 to M do
  begin
   For j:=1 to M do
    Write(Sm[i,j]:8:3);
   WriteLn;
  end;
 WriteLn;
end;

Procedure Form_Vector(Fm:Mtr; var Fv:Vct);
var i,j:Byte;
begin
 For i:=1 to M do
  begin
   Fv[i]:=Fm[i,1];
   for j:=2 to M do
    if Fm[i,j]>Fv[i] then Fv[i]:=Fm[i,j];
  end;
 WriteLn('Maxima: ');
 For i:=1 to M do Write(Fv[i]:8:3);
 WriteLn;
 WriteLn;
end;

Procedure New_Matrix(Mm:Mtr;Vm:Vct; var Nt:Mtr);
var i,j:Byte;
begin
 For i:=1 to M do
  For j:=1 to M do
   Nt[i,j]:=Mm[i,j]*Vm[i];
end;

BEGIN
 Enter_Matrix('A',A);
 Enter_Matrix('B',B);
 Show_Matrix('A',A);
 Show_Matrix('B',B);
 Form_Vector(B,Max);
 New_Matrix(A,Max,C);
 Show_Matrix('C',C);
 ReadLn;
END.