用个for就行了

1.
program lx;
var
s,i:integer;
begin
s:=0;
for i:=1 to 99 do
s:=s+i;
writeln('1+2+3+4+5+.....+99=',s);
end.
2.

program lx;
var
s:real;
i:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('1+1/2+1/3+...+1/100=',s);
end.
3.

program lx;
var
s,n:longint;
begin
readln(n);
for i:=1 to n do
begin
i:=i+1;
s:=s*i;
end;
writeln('1*2+2*3+...n*(n+1)=',s);
end.

如果N太大 用for加高精比较快~