{* Задача 189 *}

Unit ZADACH189;
Interface
Implementation
Begin
 writeln('Цифры, которых нет в числе');
End.

Program pr11;

Uses zadach189.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  m : Set Of 0..9;
  n : longint;
  o : longint;
  i : longint;
Begin
  write('введите число:');
  readln(n);
  m := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9];
  While n > 0 Do
  Begin
    o := n Mod 10;
    n := n Div 10;
    If (o In m) Then
      m := m - [o]
  End;
  writeln('цифры, которых нет в числе:');
  For i := 0 To 9 Do {* Цикл для i => [0 .. 9] *}
    If i In m Then
      write(i, ' ');
  readln
End.