Составить программу для нахождения количества таких трехзначных чисел Фибоначчи

Var  a,b,k,s: integer; begin  k := 0;  a := 1;  b := 1;  while b < 1000 do    begin    if b >= 100 then      begin      s := b div 100 + b div 10 mod 10 + b mod 10;      if b mod s = 0 then        k := k + 1      end;    b := a + b;    a := b - a;    end;  write(k) end.