Program Boolean20;
Var
A:Integer;
Begin
ReadLn(A);
WriteLn(((A Mod 10) <> ((A Div 10) Mod 10)) And 
((A Mod 10) <> ((A Div 100) Mod 10)) And 
(((A Div 10) Mod 10) <> ((A Div 100) Mod 10)));
ReadLn;
end.