uses crt;
var f:text; a,b,i,s,t:longint;
begin
clrscr;
assign(f,'bai.txt');reset(f);
readln(f,a,b);
close(f);
assign(f,'kq.out');rewrite(f);
s:=0;
for i:=a to b do
if i mod 2=0 then inc(s,i);
writeln(f,s);
writeln(f,'Tich: ',a*b);
t:=a; a:=b; b:=t;
writeln('Sau khi hoan doi: ',a,' ',b);
close(f);
end.