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