{* Задача 113 *}

Unit ZADACH113;
Interface
Implementation
Begin
 writeln(' Дана последовательность натуральных чисел Найти наименьшее нат.число, которое отсутствует в последовательности ');
End.

Program pas13476;

Uses zadach113.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  n  : longint;
  n1 : longint;
  n2 : longint;
  ii : longint;
  i  : longint;
  j  : longint;
  m  : String;
  a  : String;
  er : integer;
Begin
  clrscr; {* Очистка экрана *}
  write('Введите последовательность:');
  readln(a);
  n := length(a);
  For i := 1 To n - 1 Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := i + 1 To n Do
    Begin
      val(a[i], n1, er);
      val(a[j], n2, er);
      If n1 > n2 Then
      Begin
        m := a[i];
        a[i] := a[j];
        a[j] := m[1];
      End;
      
    End;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    val(a[i], ii, er);
    If iii Then
    Begin
      write(i);
      readln; {* Ждем нажатия Enter *}
      halt;
    End;
    
  End;
  write('НЕТ');
  readln; {* Ждем подтверждения пользователя *}
End.