Viết chương trình tính tổng các số tự nhiên liên tiếp từ một đến 10 dùng cấu trúc lặp For…do

program tinh_tong;

uses crt;

var i,T:byte;

begin

      clrscr;

      T:=0;

      for i:=1 to 10 do T:=T+i;

      write(‘Tong cac so tu nhien tu 1 den 10 la: ‘,T);

      readln;

end.