pascal 1+......+100

这道题目是一道数学题。
1.硬算：
program t;
const max=100;
var n,i:integer;
begin
n:=1;
for i:=2 to max do n:=n+i;
writeln(n);
end.
2.用等差数列的通项公式Sn=n*(a1+an)/2算：
program t;
const max=100;
begin
writeln(max*(max+1) div 2);
end.

program STU_sum;
uses crt;
var s:integer;
procedure sum(i:integer);
var b:integer;
begin
for b:=1 to i do s:=s+b;
end;

begin
sum(100);
writeln(s);
readkey;
end.

人家都说了用过程编
var sum:longint;
procedure p;
var i:longint;
begin
for i:=1 to 100 do sum:=sum+i;
writeln(sum);
end;
begin
sum:=0;
p;
end.

var
a:integer;
procedure kill(v:integer);
begin
if v>100 then exit
else
a:=v+a; kill(v+1);
end;
begin
kill(1);
writeln(a);
end.

**********************