Даны натуральные числа a, b, c. Проверьте существует ли треугольник величины углов, которого в градусах при положительном результате установит вид треугольника: остроугольный, тупоугольный, прямоугольный? это в программе pascal

program zz1;

var a, b, c:integer; / /задаем переменные не целого типа

begin

write (' введите первый угол '); / / вводим с клавиатуры первое число

read (a);

write (' введите второй угол '); / / вводим с клавиатуры второе число

read (b);

write (' введите третий угол '); / / вводим с клавиатуры второе число

read (c);

if a + b + c = 180 then begin

if (a=90) or (b=90) or (c=90) then write (' треугольник прямоугольный ') else

if (a>90) or (b>90) or (c>90) then write (' треугольник тупоугольный ') else

if (a<90) or (b<90) or (c<90) then write (' треугольник остроугольный ');

end

else write (' треугольник не существует ');

end.