Code

Uses crt;
Var a:array [1..1000000] of longint;
        i,n,x,k:longint;
BEGIN
        Fillchar(A,sizeof(a),0);
        Readln(n,k);
        For i := 1 to n-k do
begin
        Read(x);
        inc(a[x]);
end;
        For i := 1 to n do
        begin//BEGIN;
        if a[i]=0 then Write(i,' ');
        end;//END;
    Readln
END.