program PascalGuru;
uses crt;
 
var A: array[1..100] of integer;     {инициализация переменных}
    i,j,n,min:integer;
    b:boolean;
 
 
begin
write('N= ');  readln(n); {ввод размерности массива}
 
writeln('Vvedite elementy massiva:');
for i:=1 to n do begin
write('A[',i,']= '); readln(A[i]); end;  {ввод элементов массива}
clrscr;
writeln('Vot vvedenye vami massiv: ');
for i:=1 to n do write(A[i],', '); {вывод массива на экран}
writeln;
writeln;
 
for j:=1 to 9 do
    begin
    b:=false;
    for i:=1 to n do
    if j=A[i] then b:=true;
 
    if not b then begin writeln('Rezult: ',j); break; end;
 
    end;
 
readln;
end.