СРОЧНО!Олимпиадная интересная задача!

[LOVELY]

Ребятушки, очень срочно...олимпиадная задача...нужна на завтра буквально!!!
выручайте))))

Числа Фибоначчи.
Дано натуральное число N. Составьте программу, которая вычисляет сумму тех цифр числа N, которые являются числами Фибоначчи - это числа последовательности 1,1,2,3,5,8,13... , где первые 2 члена последовательности имеют значение 1, а каждый последующий член, начиная с 3-его, равен сумме 2-ух предыдущих членов последовательности.
Input: число N (<= 1000000000) вводится с клавиатуры.
Output: полученная сумма выводится на экран
Пример: Input: 289756
Output: 2+8+7+5=22

[capta1n]

7 не является числом фибоначи

[LOVELY]

выходит составители ошиблись???
ну тогда без 7 ...главное программу составить...((

[capta1n]

const
 fibo : array [1..5] of 1..8 = (1,2,3,5,8);
var
 numb : longint;
 sum : byte;
 x : 0..9;
 i : 1..5;
begin
  write ('Input number '); readln(numb);
  numb:=abs(numb);
  sum:=0;
  repeat
    x:=numb mod 10;
    numb:=trunc((numb - x)/10);
    for i:=1 to 5 do
     if x=fibo[i] then
     begin
       inc(sum,x);
       break
     end
  until numb=0;
  writeln (sum);
  readln
end.

[LOVELY]

спасибо большое! весы оставила)))
но адын вопрос: inc(sum,x); - это что за оператор?

[capta1n]

то же самое, что и sum:=sum+x