Число Пи, Найти 100 верных знаков Пи Опции

[-Орхидея-]

В принципе как может показаться программка нетрудная. Но я наверное не обладаю знаниями такими чтобы написать её. Смысл програмки такой: Найти 100 первых правильных знаков числа Пи, и желательно чтобы программа была маленькая, и понятная, без сложностей.
Кому интересно пожалуста помогите.
Заранее спасибо.
P.S.:И пожалуста не пишите проги которые вычисляют 1000 и более цифр числа Пи, мне просто позарез нужна прога маленькая несложная.

[volvo]

Интересная информация: самая короткая рабочая программа, вычисляющая 800 знаков числа Пи:

int a=10000,b,c=2800,d,e,f[2801],g;main(){for(;b-c;)f[b++]=a/5;
for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)for(b=c;d+=f[b]*a, f[b]=d%--g,d/=g--,--b;d*=b);}

Вот ее перевод на Паскаль (естественно, она уже не столь маленькая, но рабочая по-прежнему):

const
  a = 10000;
  c: longint = 2800;
var
  b, d, e, g: longint;
  f: array[0 .. 2800] of longint;

begin

  while b - c <> 0 do begin
    f[b] := a div 5; inc(b);
  end;
  while true do begin
    d := 0; g := 2 * c;
    if g = 0 then break;

    b := c;
    while true do begin
      inc(d, f[b] * a);
      dec(g); f[b] := d mod g;
      d := d div g; dec(g);
      dec(b);
      if b = 0 then break;
      d := d * b;
    end;

    dec(c, 14);
    write(e + d div a);
    e := d mod a;
  end;

end.