Sử dụng câu lệnh for…do để tính tổng các số tự nhiên từ 1 đến 100

Program dreamcraft375;

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

t:=t+i;

writeln(‘Tong cac so tu nhien tu 1 toi 100 la: ‘,t);

readln;

end.