Давайте создадим программу на Паскале, которая будет выполнять указанные вами задачи. Мы будем использовать цикл для обработки ввода пользователя и проверять, является ли введенное число двузначным или трехзначным. Также добавим условия для завершения работы программы при вводе нуля.

Вот пошаговое объяснение создания такой программы:

1. Объявление переменных:
   • Создайте переменные для хранения введенного числа и результата.
2. Начало программы:
   • Используйте оператор begin для начала блока кода.
3. Цикл ввода:
   • Используйте цикл repeat...until для непрерывного запроса ввода числа.
4. Проверка условия:
   • Если введенное число равно нулю, завершите цикл и выведите сообщение о завершении работы.
   • Если число двузначное (от 10 до 99), уменьшите его на 10.
   • Если число трехзначное (от 100 до 999), уменьшите его на 100.
   • Если число не соответствует ни одному из этих условий, выведите сообщение об ошибке.
5. Вывод результата:
   • Используйте writeln для вывода результата или сообщения об ошибке.
6. Завершение программы:
   • Используйте оператор end. для завершения программы.

Теперь давайте напишем код программы:

program DecreaseNumber;
var
    number: integer;
begin
    repeat
        write('Введите двузначное или трехзначное число (0 для выхода): ');
        readln(number);
        
        if number = 0 then
        begin
            writeln(#27'[32m', 'Программа завершена.'); // Зеленый цвет
            break;
        end
        else if (number >= 10) and (number <= 99) then
        begin
            number := number - 10;
            writeln('Результат: ', number);
        end
        else if (number >= 100) and (number <= 999) then
        begin
            number := number - 100;
            writeln('Результат: ', number);
        end
        else
        begin
            writeln(#27'[31m', 'Некорректный ввод. Пожалуйста, введите двузначное или трехзначное число.'); // Красный цвет
        end;
    until false; // Бесконечный цикл, завершается при вводе 0
end.

В этом коде:

• Мы используем управляющие символы ANSI для изменения цвета текста в консоли: #27'[32m' для зеленого и #27'[31m' для красного.
• Цикл будет продолжаться до тех пор, пока пользователь не введет 0, что завершит программу.
• В зависимости от введенного числа программа будет уменьшать его на 10 или 100, или выводить сообщение об ошибке.

Надеюсь, это поможет вам создать вашу программу! Если у вас есть дополнительные вопросы, не стесняйтесь задавать их.