for ... do

uses crt;
var i,s:byte ; {Vì giá trị nhỏ nên dùng bye thì chương trình sẽ nhanh hơn}
begin
clrscr;
for i:=1 to 100 do
s:=s+i;
writeln('tong tu 1-100 la: ',s);
readln
end.

while ...do 

uses crt;
var i,s:byte ; {Vì giá trị nhỏ nên dùng bye thì chương trình sẽ nhanh hơn}
begin
clrscr;
i:=1 ;{gán i=1 để vòng lặp chạy đúng}
s:=0;
while i<=100 do
begin
s:=s+i ;
i:=i+1 ;
end;
writeln('tong tu 1-100 la: ',s);
readln
end.

pic 1 while pic 2 for

program demo;

uses crt;

var n,i: integer;

      s: longint;

begin clrscr;

s:=0;

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

writeln('tong la', s);

readln;

end.

program demo;

uses crt;

var s,i: integer;

begin clrscr;

s:=0; i:=1;

while i <= 100 do

begin

s:=s+i;

i:=i+1;

end;

writeln('tong la', s);

readln

end.