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

program tryangle;

var a1, a2: real;

begin

writeln ('Введите величины двух углов треугольника через пробел (в градусах) ');

readln (a1, a2);

if ((a1 + a2) 0) and (a2 > 0)

then writeln ('Треугольник с указанными углами существует.')

else

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

if (a1 + a2 = 90) and (a1 > 0) and (a2 > 0)

then writeln ('Этот треугольник будет прямоугольным.')

end.