1.

program ctpt;

uses crt;

  var n, i, S: integer;

begin

            clrscr;

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

            S:=0;

            for i:=1 to n do S:=S+i;

            write('Tong = ', S);

            readln

end.

2.

In: số nguyên n.

Out: S.

MT:

B1: S ← 0.

B2: i ← i + 1; S ← S+i.

B3: Nếu i > n thì thông báo S và KTTT ngược lại quay lại bước 2.

Input : số nguyên n

Output : Tổng các số  từ 1 đến n (S)

Thuật toán

 b1 :  S := 0 ; i := 1;

b2 : i := i + 1; S := S + i;

b3 : Nếu i ≤ n thì quay lại bước `2` else in `S` và end.

Chương trình

program az;

uses Crt;

var i,n : integer;

        S : longint;

begin

clrscr;

Write('Nhap n  = '); readln(n);

S := 0;

For i:=1 to n  do S := S + i;

Write('S = ',S);

readln

end.