const n=3;
type  TStr = array[1..n] of integer;
      TMatr = array[1..n] of TStr;
      TVector = array[1..n] of integer;
var matr:TMatr; vector:TVector;

procedure MaxCol (matr:TMatr; numCol:integer; var max: integer);
    var i:integer;
    begin
        max:=matr[1,numCol];
        for i:=2 to n do
            if matr[i,numCol] > max then
                max:=matr[i,numCol];
    end;

procedure MinStr(str:TStr; var min: integer);
    var i:integer;
    begin
        min:=str[1];
        for i:=2 to n do
            if str[i] < min then
                min:=str[i];
    end;

procedure FormVector(matr:TMatr; var vector:TVector);
    var i:integer;max,min:integer;
    begin
        for i:=1 to n do
        begin
            MaxCol(matr,i,max);
            MinStr(matr[i],min);
            writeln(min,' ',max);
            vector[i]:= min * max
        end;
    end;

procedure formMatr(var m: TMatr);
var i, j: integer;
begin
  writeln('введите матрицу ',n,'x',n);
  for i:=1 to n do
    for j:=1 to n do
      read(m[i,j]);
  readln;
end;

procedure printResult(m: TMatr; vector:TVector);
var i, j: integer;
begin
  writeln('--- РЕЗУЛЬТАТ ---');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(m[i,j]:3);
    write('|',vector[i]:3);
    writeln;
  end;
end;
 begin
 formMatr(matr);
 FormVector(matr,vector);
 printResult(matr,vector);
 readln;
 end.