Pascal :

var  s,i:integer;
begin
s:=0;
for i:=1  to 100 do
  s:=s+I;
  writeln(s);
end.