2 .Câu lệnh này được thực hiện như sau:
- Bước 1: Kiểm tra điều kiện
- Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước  1 

1. *Cú pháp: For < Biến đếm > := < Giá trị đầu > to < Giá trị cuối > do < Câu lệnh >.

3.   Câu 3 làm tương tự dựa vào hai cái trên

1. For < Biến đếm > := < Giá trị đầu > to < Giá trị cuối > do < Câu lệnh >;

2. While <Điều kiện> do <Câu lệnh>;

3. Program TinhTong;

Uses crt; 

m,s,n,i: real;

BEGIN

Clrscr;

Write('Nhap N: '); Readln(N);

i:=1;

s:=0;

While i <= n do 

begin

  m: = 2*i-1;

  s := s+ (1 / m);

  i := i+1;

end;

Writeln('S =', s:1:3);

Readln;

END.