Pascal语言求100+97+……+4+1的值

Pascal语言求100+97+……+4+1的值

var
i,j:integer;
begin
for i := 1 to 100 do begin
if i mod 3 =1 then
j:=j+i;
end;
showmessage(inttostr(j));
end;

program wt(input,output);
var i,s:integer;
begin
s:=0;
for i:=100 downto 1 do
if i mod 3=1 then s:=s+i;
writeln('s=',s);
end.
望采纳，谢谢！

var
a:integer;
sum:integer;
begin
a:=100;
sum:=a;
repeat
a:=a-3;
sum:=sum+a;
until a=1;
writeln(sum);
end.

var i , j , result:integer;
begin
result:=0;
for i:=0 to 100 do
begin
for j:=i+3 to 100-i do
begin
if (i+(100-j))=100 then
// j:=i+1;
end;
result:=result+(i+(100-j));
end;
showmessage(inttostr(result));
end;

var i,s:longint;
begin
for i:=33 to 0 s:=s+3*i+1;
writeln(s);
end.

var
i,s:longint;
begin
i:=1;
while true do
begin
s:=s+i;
if i=100 then
break;
i:=i+3;
end;
writeln(s);
end.