const
        m=150;
        n=150;
var
        mas:array [1..m,1..n] of integer;
        rufn,max,min,i,j,s,f,h,k:integer;
begin
        randomize;
        for i:=1 to n do
         begin
            for j:=1 to m do
            begin
              mas [i,j]:=random (10000)+random(1000)+random(100)+random(10)+random(1);
              writeln('mas=(',i,'-',j,')= ',mas[i,j]);
            end;
          min:=mas[1,1];
          for s:=2 to n do
           begin
             for f:=2 to m do
              begin
                 if mas[s,f]<min then
                  min:=mas[s,f]
              end;
           end;
          max:=mas[1,1];
          for h:=2 to n do
          begin
            for k:=2 to m do
            begin
              if mas[h,k]>max then
              max:=mas[h,k];
            end;
          end;
        end;
        writeln(' ');
        writeln('Њ ЄбЁ¬ «м­л© н«Ґ¬Ґ­в=',max);
        writeln('ЊЁ­Ё¬ «м­л© н«Ґ¬Ґ­в=',min);
        writeln('ќ«Ґ¬Ґ­в б Ё­¤ҐЄб®¬ 2 Ё 5 =',mas[2,5]);
        mas[2,5]:=min;
        writeln('ќ«Ґ¬Ґ­в б Ё­¤ҐЄб®¬ 2 Ё 5 = ',mas[2,5]);
        readln;
end.