program dvumernui;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  RusLib;

const
  n=4;
  m=3;
type
  Mas = array [1..n,1..m] of Integer;
var
  A:Mas;
  ip, jp, indj, indi, i, j, max, min:Integer;
begin
 {Çàïîëíåíèå ìàññèâà}
            for  i:=1 to n do
            for  j:=1 to m do
            begin
              Write('Ââåäèòå ýëåìåíò','A[',i,',',j,']=');
              Readln(A[i,j]);
            end;

         for  i:=1 to n do
            begin
              For  j:=1 to m do Write (A[i,j]:6);
              Writeln;
            end;
          {Ïðèñâàèâàíèå íà÷àëüíûõ çíà÷åíèé}

             indi:=1;
             indj:=1;
              jp:=1;
             ip:=1;
             Writeln;

               {Ïîèñê ìàêñèìàëüíîé ñóììû}
     for i:=1 to n do
           begin
               max:=Low(max);
             for j:=1 to m-1 do
             begin
               if  A[i,j]+A[i,j+1]>=max
               then
                 begin
                   max:=A[i,j]+A[i,j+1];
                   indi:=i;
                   indj:=j;
                 end;
             end;
              Writeln('Ìàêñèìàëüíàÿ ñóììà:',max);
              Writeln('Êîîðäèíàòû ýëåìåíòîâ ìàêñèìàëüíîé ñóììû:(',indi,',', indj,') (', indi,',', indj+1,')');
              Writeln;
           end;



               {Ïîèñê ìèíèìàëüíîãî ïðîèçâåäåíèÿ}
           for j:=1 to m do
           begin
             min := High(min);
             for i:=1 to n-1 do
               if (A[i,j])*(A[i+1,j])<=min
               then
                 begin
                   min:=(A[i,j])*(A[i+1,j]);
                   ip:=i;
                   jp:=j;
                 end;

                   Writeln('Ìèíèìàëüíîå ïðîèçâåäåíèå:',min);
                   Writeln('Êîîðäèíàòû ýëåìåíòîâ ìèíèìàëüíîãî ïðîèçâåäåíèÿ:(',ip,',', jp,') (', ip+1,',',jp,')');
                   Writeln;
               end;


      Readln;

end.