{

ID:hyhester

PROB:1006

LANG:PASCAL

}

Program no1006;

var

n,i,j:longint;

f,a:array[1..100,1..100] of longint;

function min(a,b:longint):Longint;

begin if b