*Chương trình:

program tong;

uses crt;

var N,i,T: integer;

Begin

         clrscr;

         write('Nhap N: '); readln(N);

         for i:=1 to N do T:=T+i;

         write('T = ',T);

         readln

End.

*Thuật toán:

$B1:$ Nhập N;

$B2:$ Cho biến $i$ chạy từ 1 đến $N$;

$B3:$ T←T+i;

$B4:$ Thông báo kết quả và kết thúc thuật toán.

Bước 1 : nhập số n

- Bước 2 : i ← 1, t ← 1

- Bước 3 : nếu i > n thì đưa ra giá trị t rồi kết thúc

- Bước 4 :

- Bước 4.1 : t ← t * i

- Bước 4.2 : i ← i + 1 quay lại bước 3

Bài 2 : 

- Bước 1 : nhập số n

- Bước 2 : i ← 1, t ← 0

- Bước 3 : nếu i > n thì đưa ra giá trị t rồi kết thúc

- Bước 4 :

- Bước 4.1 : t ← t + i

- Bước 4.2 : i ← i + 1 quay lại bước 3