tính tổng các số nguyên từ 1 đến n. với n được nhập từ bàn phím

uses crt;
var n,i,s:longint;
begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do inc(s,i);
      writeln(‘Tong cac so tu 1 den ‘,n,’: ‘,s);
      readln;
end.