program liumohan;
var a,s:string; i,j,m,n,p,x:longint;
begin
  read(m,n);
  for i:=m to n do
  begin
  s:='';
  if i mod 2=0 then
  begin
    str(i,a);
    for j:=5 downto 1 do
    s:=s+a[j];
    if s=a then begin p:=p+i; x:=x+1; end;
    end;
    end;
    writeln(X);
    writeln(p);
  end.
/**************************************************************
	Problem: 1743
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/