program xx;
Var
m: array [1 .. 3, 1 .. 4] of integer;
i, j, min: integer;
Begin
writeln('Vvedite elementi');
for i := 1 to 3 do
for j := 1 to 4 do
begin
readln(m[i, j]);
end;
min := m[1, 1];
for i := 1 to 2 do
for j := 1 to 3 do
begin
if m[i, j] > m[i + 1, j + 1] then
min := m[i + 1, j + 1];
end;
writeln('Rezulitat kordinata=', m[i + 1, j + 1], 'cislo minimalinoe=', min);
readln;
end.