Uses Crt;

Const
 A=3;
 D=5;

Var
B:array[1..A,1..D] of integer;
V:array[1..A-1,1..D-1] of integer;
N:integer;
i,j,i1,j1,i2,j2:integer;
Begin
WriteLn('Заполни матрицу B');
For i:= 1 to A do
 For j:= 1 to D do
  ReadLn(B[i,j]);
clrscr;
Writeln('B:');
For i:= 1 to A do
 Begin
 For j:= 1 to D do
  Write(B[i,j]:3);
 WriteLn;
 End;


N:=B[1,1];
For i:= 1 to A do
 For j:= 1 to D do
 if (N>=B[i,j]) then
  begin
  N:=B[i,j];
  i1:=i;
  j1:=j;
  End;
i:=0;
j:=0;
Repeat
i:=i+1;
if (i<>i1) then
 Begin
 i2:=i2+1;
  Repeat
  j:=j+1;
  if (j<>j1) then
  Begin
  j2:=j2+1;
  V[i2,j2]:=B[i,j]
  End
  Until (j=D)
  End;
j:=0;
j2:=0;
Until (i=A);

WriteLn('V:');
For i:= 1 to A-1 do
 Begin
 For j:= 1 to D-1 do
  Write(V[i,j]:3);
 WriteLn;
 End;
ReadLn;
End.