VCT tính tổng các số tự nhiên từ 1–>100

program tinhtong;

var t,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

t:=t+i;

write(‘Tong 100 so tu nhien dau tien la: ‘,t);

readln

end.