1. 
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;

 Writeln('Tong cua ',N,' so tu nhien dau tien s=',s);

 Readln

2.
Thuật toán này máy tính sẽ thực hiện 5 vòng lặp
Lần 1 s=20 - 2 = 18
Lần 2 s=18 - 3 = 15
Lần 3 s=15 - 4 = 11
Lần 4 s=11 - 5 =  6 
Lần 5 s= 6 - 7 = -1 
Khi kết thúc giá trị s = -1
Chương trình : 
Uses Crt;

Var n,s : integer;

Begin

 Clrscr;

 S:=20;n:=1;

 While S>=5 do
  Begin
   n:=n+1;

   s:=s+n;

  End;

 Writeln('Tong la : ',s);

 Readln

End.

Câu 1:

`-` Cú pháp: for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

`-` Hoạt động: ban đầu biến sẽ nhận giá trị là <giá trị đầu>, sau mỗi vòng lặp biến tự động tăng lên 1 đơn vị cho đền khi bằng <giá trị cuối>.

___________________________

Câu 2: 

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;
Writeln('Tong cua', N,' So tu nhien dau tien s=', s);
Readln
End.