program PodchetNumber;
var
 Number,S:string;
 Num:ARRAY[1..10] of Byte;
 i,j,Code:Integer;
 b:Boolean;

BEGIN
 writeln('Vvedite luboe celoe chislo dlinnou ne bolee 5 ');
 readln(Number);
 For i:=1 to Length(Number) do
  begin
   S:=Number[i];
   VAL(S,Num[i],Code);
  end;
 Writeln('Otsutstvujut cyfri:');
 For i:=0 to 9 do
  begin
   b:=true;
   for j:=1 to Length(Number) do
    if Num[j]=i then b:=false;
   if b then write(i);
  end;
 Readln;
END.