Perhatikan potongan program berikut ini:

var a,n : longint;

begin
  a := 0;
  readln(n);
  for i := 1 to 100 do a := a + n – i;
  writeln(a);
end.

Jika n = 27, berapakah nilai a pada akhir program?