**Chương trình sau đây sẽ tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím.
Program tinh_tong;
Var   N,i: Integer;
S: longint;
Begin
         Write(‘Nhap so N =’); readln(N);
         S:=0;
         For i:=1 to N do S:=S+i;
         Witeln(‘Tong cua' , N,` so tu nhien dau tien S =' ,S);
          Readln;
End.
***** Chương trình tính N! với N là số tự nhiên nhập từ bàn phím
program Tinh_Giai_thua;
var  N,i: Integer;
        P: longint;
begin
      write ( 'N = '); readln(N);
       P :=1;
           for i:=1 to N do P:=P*1;
            writeln( N , '!= ' , P);
               readln
 end.

`=>` 

Ở chương trình đầu, S=0 và S tăng lên i đơn vi qua phép cộng

ở chương trình hai, P=1 và P tăng lên i đơn vị qua phép nhanha

$\text{- Chương trình 1 :}$

$\text{+ Biến S ban đầu khởi tạo bằng 0}$

$\text{+ Câu lệnh được thực hiện qua mỗi vòng lặp S := S + i}$

$\text{+ Mục đích chương trình tính tổng N số tự nhiên đầu tiên}$

$\text{- Chương trình 2 :}$

$\text{+ Biến P ban đầu khởi tạo bằng 1}$

$\text{+ Câu lệnh được thực hiện qua mỗi vòng lặp P := P * i}$

$\text{+ Mục đích chương trình tính N!}$