Ta có hai hướng là dùng công thức và dùng lệnh For ... do
1.Dùng công thức:
program Tinh;
uses crt;
var n,s: longint;
begin
clrscr; readln(n); s:=n*(n+1)/2;
writeln('Tong la : ',s);
readln
end.
2.Dùng lệnh For ... do :
program Tinh;
uses crt;
var i,n: integer; s: longint;
begin
clrscr; readln(n); s:=0;
for i:=1 to n do s:=s+i;
writeln('Tong la : ',s); readln
end.