Mathe Problem 1+2-3 ... +99-100

[citybreaker]

Hallo,

ich hab da mal ein kleines Denkproblem. Ich hoffe mir
kann jemand auf die spränge helfen.
Ich hab eine Mathe Aufgabe die ich mit dem Pc lösen möchte.

Undzwar:

Zitat:

1+2-3+4-5+6-7 .... +99-100 =

So jetzt habe ich flogendes gemacht

Delphi-Quellcode:

var i,e: integer;
    a: Array [1..100] of Integer;
begin
  e := 0;
  for i := 1 to 100 do begin
    a[i] := i;
    g := g + a[i] - a[i+1];
    // ListBox1.Items.Add(IntToStr(a[i]));
  end;
  Caption := IntToStr(e);
end;

Das ganze klappt natürlich mal wieder nicht. Hat jemand ne Idee?