Точно и верно сконструировать условие задачки, которая решается в данной программке:Program

Точно и четко сформулировать условие задачки, которая решается в данной программке:
Program Kr_2_3;
Var N, St : LongInt;
Begin
Write('Введите естественное число: ');
ReadLn(N);
St := 1;
While N Div St lt;gt; 0 Do
If Not Odd(N Mod (St * 10) Div St)
Then N := N Div (St * 10) * St + N Mod St
Else St := St * 10;
WriteLn('Ответ: ', N);
End.

Задать натуральное число N и указать, каким оно станет после преображенья.