Найдите отсутствующее число. - Turbo Pascal

Формулировка задачи:

Потерянное число

Вам даны все целые число от 1 до N+1, кроме одного. Найдите отсутствующее число.

Формат входных данных.

Впервой строке входных данных записано целое число 1<= N<=100000.Во второй строке через пробел даны N целых чисел в диапазоне от 1 до N+1.

Формат выходных данных

Выведите ответ к задаче.

Решение задачи: «Найдите отсутствующее число.»

Листинг программы

var x:array [1..100001] of byte;
    n,a,i:longint;
begin
read(n);
for i:=1 to n+1 do
x[i]:=0;
for i:=1 to n do
 begin
  read(a);
  x[a]:=1;
 end;
for i:=1 to n+1 do
if x[i]=0 then write(i)
end.

Объяснение кода листинга программы

В данном коде происходит чтение числа n из входных данных, затем происходит итерация от 1 до n+1. На каждой итерации значение i присваивается элементу массива x и устанавливается равным 1. Если значение элемента x[i] равно 0, то число i выводится на экран. Вот список действий, представленный в виде комментариев, с указанием номеров строк и переменных:

Строка 1: Объявление переменной x, которая является массивом байтов размером от 1 до 100001.
Строка 2: Чтение числа n из входных данных.
Строки 3-4: Итерация от 1 до n+1. На каждой итерации значение переменной i присваивается элементу массива x и устанавливается равным 1.
Строки 5-6: Если значение элемента x[i] равно 0, то число i выводится на экран.