Найти число из диапазона вне таблицы

var N: integer;
    s: array [1..N] of integer;
    i: integer;
begin
   randomize;
   writeln('Введите размер таблицы: '); // или тут надо спросить число?
   readln(N);
   for i:=1 to N do begin
      s[i]:=random(N);
   end;
   for i:=1 to N do
   if s[i]=N then writeln('Все элементы в таблице!')
   else writeln('Элемент отстуствует!',s[i]);
end.

const
  N = 2;
  M = 2;
 
var
  Matrix: array [0..N - 1, 0..M - 1] of integer;
 
function InMatrix(x: integer): boolean;
begin
  Result := false;
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to M - 1 do
      if Matrix[i, j] = x then
      begin
        Result := true;
        break;
      end;
    if Result then break
  end;
end;
 
begin
  var A := ReadlnInteger('A:');
  var B := ReadlnInteger('B:');
  
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      Readln(Matrix[i, j]);
  
  for var x := A to B do
    if not InMatrix(x) then WriteFormat('{0} ', x);
end.

const
  N = 2;
 
var
  C: array [0..N - 1] of integer;
 
function InArray(x: integer): boolean;
begin
  Result := false;
  var i := 0;
  while not Result and (i < N) do
  begin
    if C[i] = x then
      Result := true;
    Inc(i);
  end;
end;
 
begin
  var A := ReadlnInteger('A:');
  var B := ReadlnInteger('B:');
  
  for var i := 0 to N - 1 do
    Readln(C[i]);
  
  for var x := A to B do
    if not InArray(x) then WriteFormat('{0} ', x);
end.

const n = 10;
begin
  var a := new integer[n](0, 2, 3, 4, 5, 1, 7, 8, 9, 10); // это уже заполнено, как - проблема на вашей стороне
  
  var x := [0 .. n];
  for var i := 0 to n - 1 do x := x - [a[i]];
  Print(x);
end.

const n = 10;
begin
  var a := new integer[n](0, 2, 3, 4, 5, 1, 7, 8, 9, 10);
  
  var sum := n * Succ(n) div 2; // сумма чисел от 0 до n
  for var i := 0 to n - 1 do sum := sum - a[i];
  Print(sum);
end.