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

program tryangle;
var a1, a2: real;

begin
writeln(Введите величины 2-ух углов треугольника через пробел (в градусах));
readln(a1, a2);

if ((a1 + a2) lt; 180) and (a1 gt; 0) and (a2 gt; 0)
then writeln(Треугольник с обозначенными углами существует.)
else
writeln(Треугольник с обозначенными углами не существует);

if (a1 + a2 = 90) and (a1 gt; 0) and (a2 gt; 0)
then writeln(Этот треугольник будет прямоугольным.)

end.