var a,b,c,d:integer;
procedure perev (x:integer;var y:integer);
var st1,st:string; i:integer;
begin str(x,st); st1:='';
for i:=1 to length(st) do
st1:=st[i]+st1;
val(st1,y,x)
end;
begin
readln(c,d);
perev(c,c);perev(d,d);
a:=d-c;
b:=d*c;
writeln(a,b:4);
end.