program project1;
uses
 CRT;
Var
  r,k,max,rmax,kmax:Integer;
  x:array[1..3,1..3]of Integer =
  ((5,-3,6),
  (2,-1,-9),
  (8,-5,7));

begin
TextColor(LightRed);
Writeln('Dotais masivs');
TextColor(White);
For k:=1 to 3 do
For r:=1 to 3 do
write(x[r,k]:3);
writeln;
max:=x[1,1];
rmax:=1;
kmax:=1;
For r:=1 to 3 do
For k:=1 to 3 do
If x[r,k]>max then
begin
max:=x[r,k];
rmax:=r;
kmax:=k;
end ;
TextColor(yellow);
Writeln('Max=',max);
TextColor(green);
Writeln('Rinda=',rmax);
TextColor(LightBlue);
Writeln('Kolona=',kmax);
Readln;
end.