var a:array of integer;
i,n,b:byte;
max,x:integer;
begin
Write('Numarul numerelor: '); read(n);
if (n<1) or (n>100) then exit else
setlength(a,n);
writeln;
writeln('Numere:');
for i:=0 to n-1 do read(a[i]);
max:=a[0];
for i:=0 to n-1 do if a[i]>max then max:=a[i];
Writeln;
for x:=1 to max+1 do begin
b:=0;
for i:=0 to n-1 do if x=a[i] then inc(b);
if b=0 then
begin
writeln('X-ul: ',x);
exit
end;
end;
end.
