trojkaty

PROGRAM iletrojkatow;
VAR a,b,c,x:Word;
l:integer;
BEGIN
l:=0;
ReadLn(a,b,c);
WHILE a > 0 do
BEGIN
IF a>c THEN BEGIN x:=a; a:=c; c:=x END;
IF b>c THEN BEGIN x:=b; b:=c; c:=x END;
IF c<a+b THEN
IF c*c>a*a+b*b THEN l:=l+1;
ReadLn(a,b,c);
END;
WriteLn(l)
END.