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

Предыдущий
вопрос Следующий
вопрос

program TriangleType;

var
angle1, angle2: Integer;

begin
writeln('Enter the measures of two angles of a triangle:');
readln(angle1, angle2);

if (angle1 + angle2 = 90) or (angle1 = 90) or (angle2 = 90) then
writeln('The triangle is a right-angled triangle.')
else if (angle1 + angle2 < 90) then
writeln('The triangle is an acute-angled triangle.')
else
writeln('The triangle is an obtuse-angled triangle.');
end.