viết chương trình tính tổng các số từ 1 đến 100 (yêu cầu sử dụng lặp lùi và lặp tiến) giúp em với ạ

*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.