Thuật toán:
B1: Nhập hai số nguyên a, b (a<b)
B2: S ← 0; i:=a;
B3: Nếu i mod 2 = 0 thì S := S + i; i:= i + 1;
B4: Nếu i<=b thì quay lại B3
B5: Viết ra màn hình tổng S, kết thúc.

Mô phỏng thuật toán với a = 2; b =6
ii<=bi mod 2 = 0S
2TT2
3TF2
4TT6
5TF6
6TT12
7F  
Cách 1: Dùng vòng lặp While
Program TongSoChan;
Uses crt;
Var a,b, S, i: integer;
Begin
    Clrscr;
    Writeln('CHUONG TRINH TINH TONG CAC SO CHAN GIUA A VA B');
    Write('Nhap vao so a: '); readln(a);
    Write('Nhap vao so b: '); readln(b);
    S:=0;
    i:=a;
    while i<=b do
    Begin
        If i mod 2 = 0 then S:=S+i;
        i:=i+1;
    End;
    Writeln('Tong cac so chan giua ',a,' va ',b,' la: ', S);
    Readln;
End.

Cách 2: Dùng vòng lặp For
Program TongSoChan;
Uses crt;
Var a,b, S, i: integer;
Begin
    Clrscr;
    Writeln('CHUONG TRINH TINH TONG CAC SO CHAN GIUA A VA B');
    Write('Nhap vao so a: '); readln(a);
    Write('Nhap vao so b: '); readln(b);
    S:=0;
    For i:=a to b do
        If i mod 2 = 0 then S:=S+i;
    Writeln('Tong cac so chan giua ',a,' va ',b,' la: ', S);
    Readln;
End.