Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то прямоугольный ли он.

Сума трех углов треугольника - 180°. В прямоугольном один угол 90°, и сумма двух других углов тоже 90°.

Если даны стороны - (правило неравенства треугольников) бо'льшая сторона всегда больше разности двух других сторон и меньше их суммы. Прямоугольность можно проверить по теореме Пифагора - квадрат гипотенузы (бо'льшей стороны) равен сумме квадратов катетов.

Var a, b:integer;

begin

readln (a, b) ;

if a+b<180 then

begin

write ('Да. ') ;

if (a=90) or (b=90) or (a+b=90)

then writeln ('Прямоугольный')

else writeln ('Не прямоугольный') ;

end

else writeln ('Нет') ;

end.

Пример:

30 60

Да. Прямоугольный