for...do
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrcsr;
t:=0;
for i:=1 to 100 do t:=t+i;
write('Tong tu 1 den 100 la: ',t);
readln;
end.
while...do
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrcsr;
t:=0; i:=1;
while i<=100 do
begin
t:=t+i;
i:=i+1;
end;
write('Tong tu 1 den 100 la: ',t);
readln;
end.