*Lặp lùi
program tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=100 downto 1 do t:=t+i;
write('Tong la: ',t);
readln;
end.
*Lặp tiến
program tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
write('Tong la: ',t);
readln;
end.