Неизвестное число.

[RusseLfStyle]

Взялся решать задачки. На этой заступорился. Помогите с формулой, зависимостью, чем-то.

Сумма цифр числа X равна числу Y, а сумма цифр числа Y равна Z. Найти наименьшее X, если X + Y + Z = N.
Входные данные:
Во входном потоке в первой строке задано целое число N (0 <= N <= 1000).

Выходные данные:
Вывести целое число X.

Пример входного файла (input.txt):
102
Пример выходного файла (output.txt):
79


P.S: Решаю для себя.

[Plague]

мне кажется задание не правильно составлено. N будет всегда делиться же на 3.

function s(a:longint):longint;
begin
  if a=0 then s:=0 else s:=s(a div 10)+a mod 10;
end;
var x,y,z,i,n:longint;
begin
  read(n);
  if n mod 3<>0 then 
    begin
      write('нет такого числа');
      halt;
    end;
  x:=0;
  repeat
    inc(x);
    y:=s(x);
    z:=s(y);
  until x+y+z=n;
  write(x);
end.

[unbanned]

хм.... а что если...?

....
  until x + y + z >= n;
  if (x + y + z) = n then write('Искомое число: ', x)
  else writeln('нет такого числа');
end.

[RusseLfStyle]

Спасибо! Все работает.