Viết chương trình tính tổng của các số nguyên từ 1 đến n, với n là số nguyên được nhập từ bàn phím

program tinh_tong_n;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       t:=0;

       for i:=1 to n do

              t:=t+i;

       write(‘Tong cac so nguyen tu 1 den ‘,n,’ la: ‘,t);

       readln;

end.