uses crt;
var i,n,max,a:longint;
 duyet:array[0..10000000] of boolean;
begin
   clrscr;
   write('n=');readln(n); { Nhap n }
   write('a=');
   for i:=1 to n do
     begin
        read(a); { Nhap mang }
        if max<a then max:=a; { Tim gia tri lon nhat trong mang }
        if a>0 then
           duyet[a]:=true;{ Danh dau nhung so nguyen duong da nhap }
     end;
   max:=max+1; { Vi so nho nhat se nam trong khoang 1->max+1 nen +1->max }
   {Kiem tra xem so nao chua xuat hien trong mang }
   for i:=1 to max do
   if duyet[i]=false then
      begin
          write(i);  { In i }
          break;  { Thoat vong lap }
      end;
readln;readln;
end.

Do có việc nên giờ mới gởi, xin lỗi bạn nha.

============================

Có lỗi thì nói mình nhé.

============================

program Hello;
uses crt;
var n,i,min,m,j:longint;
    a:array[1..10000] of longint;
begin
    write('Nhap n: ');
    readln(n);
    for i:= 1 to n do
        begin
            read(a[i]);
            for j:= 1 to n do
                if a[i] < a[j] then
                    begin
                        m:=a[i];
                        a[i]:=a[j];
                        a[j]:=m;
                    end;
        end;
    for i:= 1 to n do
        if a[i]-a[i-1]>1 then
            begin
                write(a[i-1]+1);
                break;
            end;
end.

============================

Giải thích:

Mình sẽ sắp xếp lại mảng theo thứ tự từ nhỏ đến lớn.

Sau đó lấy phần tử sau trừ phần tử trước nếu lớn hơn 1 thì ghi phần tử trước cộng thêm 1.

Ví dụ:

n = 3

2 1 5 => 1 2 5 

5 - 2 = 3 > 1 => 2+1 = 3.