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

Пишем программку:
Pascal.
program qq;
a,b,k,s: integer;
begin
k := 0;
a := 1;
b := 1;
while b lt; 1000 do
begin
if b gt;= 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.
Программка составлена.