Решение в паскалеНаписать программу, которая уменшнает на 10 введенное с клавиатуры

Есть иной вариант: преподают по конспектам 30-летней давности, учители задержались в тех годах с развитием.

Да там просто надобно подключить Crt и поменять цвет чрез textcolor:=код цвета от 0 до 15

Братик, я ни в глаз не разумею о чем ты говоришь))

фронтэнд с php, что ли?

Пока без. На вью и нативным жсом сижу

А... .начинающий ))

Так с задачей справишься?

Не веселите))

Сделай пожалуйста по прыткому

Есть результаты?

Uses Crt;

var
  n:integer;
 
begin
  repeat
    textcolor(15);
    Write('n='); Read(n);
    if n=0 then begin
      textcolor(LightGreen);
      Writeln('Работа завершена');
      textcolor(15);
      end
    else  
      if (ngt;9) and (nlt;100) then begin
        n:=n-10;
        Writeln('Итог: ',n)
        end
      else
        if (ngt;99) and (nlt;1000) then begin
          n:=n-100;
          Writeln('Результат: ',n)
          end
        else begin
          textcolor(LightRed);
          Writeln('Недопустимое значение');
          end;
  until n=0;
  ReadKey для PascalABC.NET можно удалить эту строчку
end.