Программу надо составить в паскале: Составить программу определения вида треугольника по двум углам (прямоугольный, остроугольный, тупоугольный)

Var a, b, c: integer;
begin
write(Угол A = );
readln(a);
write(Угол B = );
readln(b);
if (a>0) and (b>0) and (a+bbegin
c:=180-a-b;
writeln(Угол C = , c);
if (a=90) or (b=90) or (c=90) then writeln(Прямоугольный);
if (aif (a>90) or (b>90) or (c>90) then writeln(Тупоугольный);
end
else
writeln(Неверно заданы углы);
end.