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

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