CTS

procedure A;
begin
  WriteLn('CTS: ' + IntToSTr(GetColorToleranceSpeed) + ' [A]');
end;

procedure B;
begin
  WriteLn('CTS: ' + IntToStr(GetColorToleranceSpeed) + ' [B]');
  ColorToleranceSpeed(2);
  A;
  ColorToleranceSpeed(1);
end;

begin
  B;
  WriteLn('CTS: ' + IntToStr(GetColorToleranceSpeed) + ' [C]'); // "C"
end.