viết chương trình tính tổng 1+2+3+4+…+n

uses crt;

var i,n,s: integer;

begin

clrscr;

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

     for i:=1 to n do s:=s+i;

     writeln (‘tong la: ‘,s);

  readln;

end.