$/=$";print$-=1+(sort{$a-$b}@a=<>,$a[0]+$a[1]-$a[2])[0]