var c:array [1..1000] of integer;
d:array [1..1000] of integer;
f:array [1..1000] of integer;
a,b,i:integer;
s,k:real;
begin
writeln ('Ââåäèòå ÷èñëà a è b');
read (a,b);
s:=0;
k:=0;
for i:=a downto b do
c[i]:=i; 
for i:=a downto b do begin
d[i]:=c[i];
f[i]:=c[i];
while ( c[i]<>0 ) do
 begin
   s := s + 1;
   c[i] := c[i] div 10;
 end;
 while ( d[i]<>0 ) do
 begin
   k := k + power(d[i] mod 10,s);
   d[i] := d[i] div 10;
 end;
 if (k=f[i]) then write (' ',k) else write (' -1 ');
 s:=0;
 k:=0;
 end;
 end.