设计一个1+2+…+100的pascal程序

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

我的简单，用公式计算1+2+3+...+n的值
program liukes;
var
s,n:longint;
begin
readln(n);
writeln((n+1)*n div 2);
end.
n由你输入。

我来个复杂的用递归做：
program plus1;
function p(i:integer):integer;
begin
if i=1 then p:=1
else p:=p(i-1)+i;
end;
begin
write(p(100));
end.