program qw;
uses
    crt;
const
    a:array[1..4,1..3] of integer=((12,3,4),(-6,2,-2),(1,-5,6),(-2,0,3));
var
    b:array[1..2] of integer;
    i,j,k:integer;
    min,max:integer;
begin
    clrscr;
    for i:=1 to 4 do
        begin
            for j:=1 to 3 do
                begin
                    write(a[i,j],'   ');
                end;
            writeln;
        end;
    writeln;
    min:=a[i,j];
    max:=a[i,j];
    for i:=1 to 4 do
        begin
            for j:=1 to 3 do
                begin
                    if a[i,j]<min then
                        min:=a[i,j]
                    else
                        if a[i,j]>max then
                            max:=a[i,j];
                end;
        end;
    writeln('min=',min);
    writeln('max=',max);
    for i:=1 to 4 do
        begin
            for j:=1 to 3 do
                begin
                    for k:=1 to 4 do
                        begin
                            if j>i then
                                begin
                                    b[k]:=a[i,j];
                                end;
                        end;
                end;
            writeln(b[k]);
        end;
    readln
end.