Проверьте, можно ли построить треугольник из отрезков с длинами x, y…

Program zadacha; Var x,y,z,ans: Int64; BeginReadLn (x,y,z); If (x>0) and (y>0) and (z>0) then Inc (ans); If (ans=0) then WriteLn ('Такой треугольник построить нельзя') else begin Write ('Такой треугольник можно построить'); If (x=y) xor (x=z) xor (y=z) then Write (', он будет равнобедренным') else If (x=y) and (x=z) and (z=y) then Write (', он будет равносторонним') else If (x=y) xor (x=z) xor (y=z) then Write (', он будет равнобедренным'); If (sqr (x)+sqr (y)=sqr (z) or (sqr (y)+sqr (z)=sqr (x) or (sqr (z)+sqr (x)=sqr (y) then write (', он будет прямоугольным.') else If (sqrt (sqr (x)+sqr (y) >z) xor (sqrt (sqr (z)+sqr (y) >x) xor (sqrt (sqr (x)+sqr (z) >y) then Write (', он будет остроугольным.') else write (', он будет тупоугольгым.'); end; End. ps: не забудь пометить как лучшее решение плизз)