Например, так:
Код:
CONST
P:Array[1..10] of Byte=(0,3,4,7,11,12,13,15,8,19);
var
A,F:Array[1..1000] of Word;
i,j,k,N:Byte;
b:boolean;
BEGIN
Write('Permitted values: ');
For i:=1 to 10 do Write(P[i]:4);
WriteLn;
WriteLn;
Write('N(<1000)= ');
ReadLn(N);
Randomize;
Writeln;
WriteLn('Initial array:');
For i:=1 to N do
begin
A[i]:=Random(N);
Write(A[i]:8);
end;
WriteLn;
WriteLn;
WriteLn('Forbidden elements:');
k:=0;
For i:=1 to N do
begin
b:=true;
For j:=1 to 10 do
If A[i]=P[j] then b:=false;
If b then
begin
k:=k+1;
F[k]:=A[i];
Write(F[k]:8);
end;
end;
WriteLn;
ReadLn;
END.