program Tinh_tong;

uses crt;

var i, n, s: integer;

begin

     clrscr;

     writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');

     write('Nhap so n: ');   readln(n);

     s:=0;  i:=1;

      while i<=n do

         begin

           s := s + i;

           i:=i+1;

        end;

     writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

     readln;

     readln;

end.

Program tinh_tong;

Uses crt;

Var i, n, s: integer;

Begin

Clrscr;

Writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');

Write('Nhap so n: ');Read(n);

S:=0;

While i<=n do

  Begin

      i:=i+1;

      S:=S+i;

  End;

Writeln('Tong cua ',n,' so tu nhien dau tien la: S = ',s);

Readln;

End.

Code đây nha, chúc bạn học tốt ^w^