输入一个3*3二维数组，找出其中最小的数，输出它的值以及所在行号和列号。

var i,j,k,min,mini,minj:longint;
begin
min:=maxlongint;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
read(k);
if k<min then begin
min:=k;
mini:=i;
minj:=j;
end;
end;
readln;
end;
writeln('X=',mini,' Y=',minj,' ',min);
end.