Даны естественные числа a,b,c. Проверьте существует ли треугольник величины углов, которого

program zz1;

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

begin

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

read(a);  

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

read(b);

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

read(c);

if a + b + c  = 180 then begin

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

if (agt;90)or(bgt;90)or(cgt;90)then write( треугольник тупоугольный ) else

if (alt;90)or(blt;90)or(clt;90)then write( треугольник остроугольный );

end

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

end.