Дано натуральное число N, и последовательных целых чисел, каждое из которых лежит в диапазоне от 0 до 255. Определить все числа из заданного интервала, которые не входят в последовательность от 0 до 255 (Паскаль. Решить с использованием множества и рандома)

Var a, n, i:byte;

mn:set of byte;

begin

readln (n) ;

mn:=[];

writeln ('Числа последовательности:') ;

for i:=1 to n do

begin

a:=random (256) ;

write (a,' ') ;

mn:=mn+[a];

end;

writeln;

writeln ('Числа, которые не входят в последовательность:') ;

for i:=0 to 255 do

if not (i in mn) then write (i,' ') ;

writeln;

end.

Пример (для диапазона от 0 до 25) :

Числа последовательности:

6 23 17 12 17 4 22 25 3 8

Числа, которые не входят в последовательность:

0 1 2 5 7 9 10 11 13 14 15 16 18 19 20 21 24