Giải thích các bước giải:

 1/ Tính tổng từ 1 → N 

 Program TinhTong; 

 Uses crt;

 Var S , i , n : Integer;                            // Khai bao bien su dung 

 BEGIN 

            Write( ' Nhap so n : ' ) ;           // Thong bao nhap lieu  

            Readln( n ) ;                            // Nhap gia tri n,  (voi &N la d/c bien N) 

            S : i = 0 ;                                  // Nhoi gan gia tri ban dau cho S

            For i :=1 to n do                     // Lap voi moi i co gia tri tu 1 den N 

                               S :=S + i                   // Tinh tong cong don i vao S 

            Writeln(   Tong = ' , S) ;              // Xuat ket qua tong S ra man hinh 

            Readln; 

  END . 

2/ Tính biểu thức 1+ 1/2 +....+1/n 

     Program bai2; 

- Tính biểu thức 1+1/2 +...+1/n

- Tính biểu thức 1+1/2 +...+1/n