Var
a,b:integer;
Begin
Readln(a);
Readln(b);
While a <> 0 do
If a < b then
Writeln('a=',a);
End;
End.
