a: 3;

b: 0;

c: 1;

S: c+b+a;

for i: 4 thru 100 do
    (d:c-b-a, a:b, b:c, c:d, S:S+d);
S