问几个pascal程序

这些数列都是等差数列->相邻两项差都相等的数列 的求和问题；
写等差数列循环，我们需要知道：
起始项，终结项，公差（相邻数的差）；
我们可以这样写：
program qiu_he;
var now,sum:integer;
begin
sum:=0;//对总和初始化
now:=起始项;//现在需要加的数
while now<=终结项 do begin //循环
    sum:=sum+now;
    now:=now+公差;
end;
writeln('sum=',sum);
end.

我们把数带进去：第一道题 起始项是1 终结项是100 公差为1
program qiu_he;
var now,sum:integer;
begin
sum:=0;//对总和初始化
now:=1;//现在需要加的数
while now<=100 do begin //循环
    sum:=sum+now;
    now:=now+1;
end;
end.

第二个例子：起始项是2 终结项是100 公差是2

program qiu_he;
var now,sum:integer;
begin
sum:=0;//对总和初始化
now:=2;//现在需要加的数
while now<=100 do begin //循环
    sum:=sum+now;
    now:=now+2;
end;
writeln('sum=',sum);
end.

此类是基本的循环练习题，是学好