var

n, k, levo, desno, stepen, c : int64;

f, g : Text;

nadjen : boolean;

begin

Assign(f,'bezcifre.in'); Assign(g,'bezcifre.out');

Reset(f); Reset(g);

Read(f, n, k);

levo := n;

stepen := 1;

desno := 0;

nadjen := False;

while (levo > 0) and not nadjen do

begin

desno := n mod stepen;

levo := n div (stepen*10);

c := levo * stepen + desno;

if (n = k * c) then

begin

nadjen := True;

WriteLn(g,n,' = ',k,' * ',c);

end;

stepen := stepen * 10;

end;

Close(f); Close(g);

end.