program p94_4;{8}
uses crt;
var a:array[1..150]of word;
    n,i,j:byte;
    t:word;

begin
clrscr;
write('Nr de elemente: ');readln(n);
writeln('Introdu nr naturale mai mici de 150!');
for i:=1 to n do begin
 write(i:3,': ');readln(t);
 j:=i;{Asiguram ordonarea elementelor}
 while(j>1)and(a[j-1]>t)do begin
  dec(j); a[j+1]:=a[j];
 end; a[j]:=t;
end;
clrscr; Writeln('Nr introduse:');
for i:=1 to n do write(a[i]:4);Writeln(#10);
Writeln('Nr ne introduse:');
j:=1;
for i:=1 to 150 do begin
 while(j<=n)and(i>a[j])do inc(j);
 if(j>n)or(i<a[j])then Write(i:4);
end;
readln;
end.