Найти минимально натуральное число, которое не может быть представлено суммой ни каких заданных чисел

program cover;
 
{$APPTYPE CONSOLE}
type Tmas=array [1..10000,1..2] of longword;
     edinichniymas=array [1..100000] of byte;
Function zapoln(Mas:tmas;n:word):longword;
var i,j:longword; One:edinichniymas;  counter:longword; k:longword;
begin
  counter:=0;
  fillchar(one, sizeof(one), 0);
  for i:=1 to n do
    for j:=Mas[i,1]+1 to Mas[1,2] do
    if Mas[i,1]-1<>Mas[i,2]
    then one[j]:=1;
  for i:=1 to 10000 do
  if one[i]=1
  then inc(counter);
  if (counter<>0) or (counter<>-1)
  then zapoln:=counter
  else zapoln:=0;
end;
 
var i,j:word; n:word; A:tmas;
begin
  read(n);
  for i:=1 to n do
    for j:=1 to 2 do
    read(A[i,j]);
  write(zapoln(A,n));
  readln;
  readln;
end.

uses crt;
const n=10;
type TArrayInt = array[1..n] of Integer;
    TArrayByte = array[1..n] of byte;
var
    a:TArrayInt;
    flag:TArrayByte;
    i,k:integer;    sum:LongInt; 
    f:boolean;
 
function nepolon(p:TArrayByte):boolean;
var i:Integer; f:boolean;
Begin f:=false;
for i:=1 to n do
    if p[i]=0 then f:=true;
nepolon:=f;
End;
 
procedure next_vyborka(p:TArrayByte);
  var i,j:Integer;
  Begin
    i:=1; While (flag[i]=1)and(i<=n) do
                                i:=i+1;
    if not(i>n) then begin
      flag[i]:=1; for j:=i-1 downto 1 do
                            flag[j]:=0;
    end;
  End;
  
    
  function get_vyborka(p:TArrayInt):LongInt;
var i:Integer; sum:Longint;
Begin 
    sum:=0;
    for i:=1 to n do 
            if flag[i]=1 then sum:=sum+p[i];
    get_vyborka:=sum;
End;
  
Procedure Sort(var p:TArrayInt);
Var k,kk,t:Integer;
Begin
    for k:=1 to N do
        for kk:=1 to n-1 do
          if p[kk]>p[kk+1] then begin
                    t:=p[kk]; p[kk]:=p[kk+1];
                    p[kk+1]:=t; end;
End;
 
Procedure make_random_array(var p:TArrayInt);
var i:Integer;
Begin for i:=1 to N do p[i]:=Random(20)+1; End;
 
Procedure Obnulenie(var p:TArrayByte);
Var i:Integer;
Begin for i:=1 To n do p[i]:=0; End;
 
Procedure Print (p:TArrayInt);
var i:Integer;
Begin for i:=1 to N Do Write(p[i]:3); Writeln; End;
 
  { Implementation}
BEGIN
clrscr;
randomize;
make_random_array(a);
Print(a);
Sort(a);
Print(a);
i:=0;
Repeat
    i:=i+1;
    Obnulenie(flag);
  f:=true;
    While nepolon(flag)and f do begin
    next_vyborka(flag);
    sum:=get_vyborka(a);
        if i=sum then f:=false;
    End;
Until f;
writeln;
writeln(i);
readln;
END.