Даны три натуральных числа.напишите программу,определяющую,существует ли треугольник с такими длинами сторон.если такой треугольник существует,то определите его тип(равносторонний,равнобедренный,разносторонний)

var a,b,c: real;

begin

writeln ('введите стороны треугольника');

read (a,b,c);

if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then

begin

if (sqr(a)+sqr(b)=sqr(c)) then writeln ('это прямоугольный треугольник');

if (sqr(a)+sqr(b)> sqr(c)) then writeln ('это остроугольный треугольник');

if (sqr(a)+sqr(b)

end

else writeln ('такого треугольника не существует');

end.