Яке основне призначення електронних таблиць???
​

program zadacha;

var x,y,z,ans: int64;

begin

readln(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: не забудь пометить как лучшее решение )