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

Var MyAr:array[1 ... 100]of byte;

MN1: Set of byte;

j, i, N: integer;

begin

Write ('N = ') ;

read (N) ;

for i : = 1 to N do

MyAr[i] : = random (256) ;

write ('Массив А=') ;

for i : = 1 to N do

write (MyAr[i], ' ') ;

MN1 : = [];

for i : = 1 to N do

MN1 : = MN1 + [MyAr[i]];

j : = 0;

begin

for i : = 0 to 255 do

if i in MN1 then

j : = j + 1;

write (j) ;

end;

end.