---

Program n3;
Var x, a, b, c, rez: integer;
Begin
  Writeln('Введите трёхзначное число:');
  Readln(x);
  a := x div 100;
  b := x div 10 mod 10;
  c := x mod 10;
  if a <> 9 then a := a + 1;
  if b <> 9 then b := b + 1;
  if c <> 9 then c := c + 1;
  rez := a*100 + b*10 + c;
  Writeln('Результат: ', rez);