Написать программу на паскали. входные данные: градусные меры углов треугольника. используя оператор case, вывести сообщение о том, прямоугольным, тупоугольным или остроугольным является треугольник. учесть возможность ввода некорректных данных

Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.