uses crt;
var n,i,j,kt,m:longint; a:array[1..100000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to n do
      begin
         kt:=0;
         for j:=1 to n do if i=a[j] then kt:=1;
         if kt=0 then write(i,'; ') else inc(m);
      end;
   if m=n then writeln('Khong co so nao khong thuoc day!');
readln
end.

////////////////////////////////////////////////////

program oken;
uses crt;
var n,dem,max: integer;
    i,j: integer;
    kt: boolean;
    a:array[1..100]of integer;
begin
    clrscr;
    write('Nhap so phan tu cua mang: ');readln(n);
    for i:=1 to n do
        begin
            write('A[',i,']: ');readln(a[i]);
        end;
    dem:=0; max:=a[1];
    for i:=2 to n do
        if max<a[i] then
            max:=a[i];
    write('Cac so con thieu: ');
    for i:=1 to max do
        begin
            kt:=true;
            for j:=1 to n do
                if a[j]=i then 
                    kt:=false;
            if (kt=true) then
                write(i,' ')
        end;
    writeln; writeln('Nhan Enter de ket thuc');
    readln;
end.