- Tính S = 1 + 2 + 3 + ... + N với For .. do

uses crt;

var i, N, S : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

S := 0; for i := 1 to N do

S := S + i;

write('S = ', S);

readln

end.

- Tính S = 1 + 2 + 3 + ... + N với While .. do

uses crt;

var i, N, S : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

S := 0; i := 1;

while i <= N do

begin S := S + i;

i := i + 1; end;

write('S = ', S);

readln

end.

program hoidap247;

uses crt;

var s,i,n: integer;

begin

 writeln('nhập n: '); read(n);

 s:=0; 

 i:=1

       while i<=n do

           begin

             S:=S+i;

             i:=i+1;

           end;

   writeln('tong cac so tu 1 den ',n,' la: ', S);

   readln;

end.

* VD về chương trình phía dưới:

`+` nhập n =5

`+` chương trình sẽ chạy các số từ `1` đến `5` : `1 ; 2 ; 3; 4 ; 5`

và cộng chúng lại sẽ ra tổng = 15 ( bức số 2 )