program DecreaseNumber;
uses
crt;
var
num: integer;
begin
repeat
writeln('Введите число (для завершения программы введите 0): ');
readln(num);
if num = 0 then
begin
textcolor(10); // зеленый цвет
writeln('Программа завершена.');
break;
end
else if (num < 10) or (num > 999) then
begin
textcolor(12); // красный цвет
writeln('Некорректные данные. Введите двузначное или трехзначное число.');
continue;
end
else if (num >= 10) and (num < 100) then
begin
num := num - 10;
end
else if (num >= 100) and (num < 1000) then
begin
num := num - 100;
end;
writeln('Результат: ', num);
until false;
end.

Программа будет уменьшать введенное число на 10, если оно двузначное, и на 100, если трехзначное. Если введено некорректное число (меньше 10 или больше 999), будет выводиться соответствующее сообщение красным цветом. При введении 0 программа завершится и выведет сообщение о завершении работы зеленым цветом.