Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами сторон треугольника

Пишем программу:Pascal ABC.program qq;var a, b, c: real;begin writeln(\'Введите два катета A,B и гипотенузу С треугольника\'); readln(a, b, c); if (c >= a + b) or (a + b + c = 0) then writeln(\'Такого треугольника не существует\') else begin if sqr(c) = sqr(a) + sqr(b) then writeln(\'Прямоугольный\'); if sqr(c) > sqr(a) + sqr(b) then writeln(\'Тупоугольный\'); if sqr(c) < sqr(a) + sqr(b) then writeln(\'Остроугольный\'); end;end.Программа написана.