program Transport;
uses crt;
var C,VU:Array [1..3,1..5] of integer;
    A:Array [1..3] of integer;
    B:Array [1..5] of integer;
    xx:Array [1..15,1..2] of integer;
    i,j,ii,jj,iii,jjj:integer;
    x,k,y,u:integer;
    min:integer;

procedure vvodA;
begin
Writeln ('Введите массив (Колличество груза на 3 базах) :');
For i:=1 to 3 do
begin
Write ('A',i,'=');
Readln (A[i]);
end;
end;

procedure vvodB;
begin
Writeln ('Введите массив (Колличество груза перевозимого в 5 пунктов):');
For i:=1 to 5 do
begin
Write ('B',i,'=');
Readln (B[i]);
end;
end;

procedure vvodC;
begin
Writeln ('Введите массив:');
For i:=1 to 3 do
For j:=1 to 5 do
Read (C[i,j]);
end;

procedure vivod;
begin
Writeln ('Массив:');
for i:=1 to 3 do
begin
for j:=1 to 5 do
Write (C[i,j],' ');
Writeln;
end;
end;

procedure xmin;
begin
jj:=1;
u:=1;
min:=C[1,1];
writeln;
for i:=1 to 3 do
for j:=1 to 5 do
begin
if C[i,j]<min then
begin
min:=C[i,j];
xx[jj,1]:=i;
xx[jj,2]:=j;
u:=u+1;
jj:=jj+1;
end;
if (C[i,j]=min) and ((i<>1) and (j<>1)) then
begin
xx[jj,1]:=i;
xx[jj,2]:=j;
jj:=jj+1;
u:=u+1;
end;
end;
end;

procedure vivodx;
begin
for ii:=1 to u do
begin
for jj:=1 to 2 do
write (xx[ii,jj],' ');
Writeln;
end;
end;
                        { НАЧАЛО ГЛАВНОЙ ПРОГРАММЫ }

BEGIN
clrscr;
{vvodA;
vvodB;}
VvodC;
xmin;
vivodx;
readkey;
END.