program oken;
uses crt;
var a,b,i,tong:integer;
begin
clrscr;
write('nhap a: '); readln(a);
write('nhap b: '); readln(b);
if a<b then
for i:=a to b do
if i mod 2=0 then tong:=tong+i;
writeln('tong cua tat ca cac so chan khong lon hon b va nho hon a: ',tong);
readln;
end.