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

var a,b:integer;beginreadln(a,b);if a+b<180 then begin write('Да. '); if (a=90)or(b=90)or(a+b=90)  then writeln('Прямоугольный')  else writeln('Не прямоугольный'); endelse writeln('Нет');end.Пример:30 60Да. Прямоугольный