var   s:string;
      i:integer;
      a:array[0..9] of boolean;
begin
 s:='159';
 for i :=1  to length(s)  do
 begin
  a[ord(s[i])-ord('0')]:=true
 end;
 for i:=0 to 9 do
  if not a[i] then write(i);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.