r:?read;sum(dispterms(if abs((a:r())-b:r())<(c:r())and a+b>c then 1 else 0),i,1,500);