n=1;s=1; while s <= 10000 n = n + 1;s = s + n; end if s - 10000 > abs(s - n - 10000) [n-1 s-n] else [n s] end