program ggg;
uses crt;
const n=5;m=7;
var x:array[1..m,1..n] of integer;i,j,c,d:integer;max:real;
BEGIN
randomize;
clrscr;
write('razmernost matrizu', m,'x',n);
writeln;
   for i:=1 to m do
   begin
   for j:=1 to n do begin x[i,j]:=random(20); write(x[i,j]:5);end;
   writeln;
end;
max:=x[1,1];
   c:=1;d:=1;
   for i:=m downto 1 do
for j:=n downto 1 do
   if ((x[i,j])> max) then begin max:=x[i,j];
      c:=i;d:=j;
       end;
   writeln('max,stroka,stolbez');
   writeln(max:5:2,c:4,d:7) ;
readln;
END.