f1 = 1, f2 = 1,���ϒl�̌v�Z
fi = fi-1 + fi-2
m = (x1 + x2 + ... + xN) / NPascal �ł̔z���`
C �ł̔z���`type fibonacci = array[1..100] of integer; var f: fibonacci;
(���ۂɂ͂������Ȃ��Ɠ����Ȃ���)int f[100]; f[1]=1; f[2]=1; for (i = 3; i=<100 ;i++) { f[i] = f[i-1] + f[i-2]; }