Дано целое число. Уменьшить каждую цифру этого числа на 1.

[Makcumqa]

Помогите пожалуйста.
Дано целое число. Уменьшить каждую цифру этого числа на 1.

[Serebro]

Что делать в случае, когда число равно 1000? Выдать 0(-1)(-1)(-1)?

[Stilet]

Ну например:

MODULE Num;
IMPORT StdLog,In;

PROCEDURE do*;
VAR f,l,k,n,e:INTEGER;
BEGIN
 n:=3284;k:=0;f:=1;
 StdLog.Clear;
 l:=10;
 WHILE n>=1 DO
  e:=(n MOD l)-1;StdLog.Int(e);StdLog.Tab;
  n:=n DIV l;
  k:=k+(e*f);
  StdLog.Ln;
  f:=f*10;
 END;
 StdLog.Ln;
 StdLog.Int(k);
END do;

END Num.

Вот результат

3
7
1
2

2173