Дан массив целых чисел А(30). Пусть М — наибольшее, а N наименьшее значения из данного массива. Получить в порядке возростания все целые из интервала(N,M), которые не входят в массив А(30).

program two;
uses crt;
const m=30;
var a:array[1..m] of integer;
D,i,min,max,j,k:integer;
Begin
clrscr;
write('D = '); readln(D);
randomize;
for i:=1 to D do a[i]:=random(100)+1;
writeln('massive');
for i:=1 to D do write(a[i]:5);
readln;
min:=1;
max:=2;
for i:=1 to D do
if a[i]>a[max] then max:=i
else if a[i]<a[min] then min:=i;
writeln('M = A[',max,'] = ', a[max]);
writeln('N =  A[',min,'] = ', a[min]);
for i:=a[min] to a[max] do
 begin
  k:=0;
  for j:=1 to m do
   if i=a[j] then k:=1;
   if k=0 then write(i,' ');
  end; 
readln;
end.