Помогите написать программу: треугольник задан длинами сторон 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)
end

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

end.