Sử dụng lệnh lặp For - do

var i,s:longint;

begin

for i:=1 to 100 do s:=s+i;

writeln(s);

readln

end.

Sử dụng lệnh lặp while - do 

var i,s:longint;

begin

while i<=100 do

begin

s:=s+i;

i:=i+1;

end;

writeln(s);

readln

end.

For...to...do :

uses crt;

var n,i: integer; s:real;

begin

write('nhap n:'); readln(n);

s:=0;

for i:=1 to 100 do s:=s+i;

writeln('tong s=',s:0:0);

readln

end.

while...do

uses crt;

var n,i: integer; s: real;

begin

clrscr;

write('nhap n:'); readln(n);

s:=0;

i:=1;

while i<=100 do begin

                                     s:=s+i;

                                     i:=i+1;

                            end; 

writeln('tong s=',s:0:0);

readln

end.