Написать программу: треугольник задан длинами сторон a,b,c.определите вид треугольника(тупоугольный,прямоугольный,остроугольный)

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)<sqr(c)) then writeln ('Это тупоугольный треугольник');
end
else writeln ('Такого треугольника не существует');
end.