uses crt;

var
 c: array[1..3,1..3] of Real;
 Cmax: Real;
 i: Byte;

procedure EnterArray;
var
  i,j: Byte;
begin
  Writeln('Введите массив:');
  for i:=1 to 3 do
  begin
    for j:=1 to 3 do
    begin
      Write('C[',i,',',j,']=');
      Readln(c[i,j]);
    end;
  end
end;

procedure WriteArray;
var
  i,j: Byte;
begin
  for i:=1 to 3 do
  begin
    for j:=1 to 3 do Write('C[',i,',',j,']=',c[i,j],'   ');
    Writeln;
  end
end;

begin
  ClrScr;
  EnterArray;
  Writeln;
  Writeln('Исходный массив:');
  WriteArray;
  Writeln;
  Cmax:=c[1,1];
  for i:=2 to 3 do if c[1,i]>Cmax then Cmax:=c[1,i];
  for i:=1 to 3 do c[2,i]:=c[2,i]*Cmax;
  Writeln('Новый массив:');
  WriteArray;
  Readln;
end.