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.