Запишіть програмний код, що відображує форму Form2.

{pascalabc.net } const   nn=100; var   a: array[1..nn] of integer;   n: integer; procedure ainit(p,q: integer); { инициализирует массив случайными целыми значениями из интервала [p; q] } var   i,k: integer; begin   randomize;   k: =q-p+1;   for i: =1 to n do a[i]: =random(k)+p end; procedure aout(k: integer); { выводит в строку значения эементов массива, отводя элементу k позиций } var   i: integer; begin   for i: =1 to n do write(a[i]: k);   writeln end; function amax(): integer; { возвращает максимальное значение элемента в массиве }   var       i,m: integer; begin   m: =a[1];   for i: =2 to n do       if m< a[i] then m: =a[i];   amax: =m end; function sumbeforelastpositive(): integer; { возвращает сумму элементов массива,   расположенных до последнего положительного элемента } var   i,j,s: integer;   flag: boolean; begin   i: =n; flag: =false;   while (not flag) and (i> =1) do begin       flag: =(a[i]< =0);       if not flag then dec(i)   end;   s: =0;   for j: =1 to i-1 do s: =s+a[j];   sumbeforelastpositive: =s end; procedure ashrink(pa,pb: integer); { процедура сжимает массив, удаляя из него элементы, модуль которых находится в интервале [pa; pb]. освободившийся элементы заполняются нулями. } var   i,j,k: integer;   flag: boolean; begin   k: =0; i: =1;   while i< =n do       if a[i] in [pa..pb] then       begin           if k=0 then k: =i-1;           j: =i+1; flag: =false;           while (not flag) and (j< =n) do begin               flag: =not (a[j] in [pa..pb]);               if not flag then inc(j);           end;           if flag then begin inc(k); a[k]: =a[j]; i: =j+1 end           else i: =n+1       end       else begin inc(k); a[k]: =a[i]; inc(i) end;   for i: =k+1 to n do a[i]: =0 end; var   p,q,k,b,c: integer; begin   write('укажите количество членов в массиве: ');   read(n);   write('укажите интервал значений элементов массива: ');   read(p,q);   write('укажите интервал исключаемых элементов массива: ');   read(b,c);   write('укажите количество позиций для вывода значений элемента: ');   read(k);     ainit(p,q);   write('исходный массив'); aout(k);   writeln('значение максимального элемента равно ',;   writeln('сумма до последнего положительного равна ',;   writeln('сжатый массив');   ashrink(b,c); aout(k) end.       тестовое решение: укажите количество членов в массиве: 15 укажите интервал значений элементов массива: -6 9 укажите интервал исключаемых элементов массива: -2 3 укажите количество позиций для вывода значений элемента: 3 исходный массив  7  7  7 -1  5  5 -5  6  0 -1  3  2 -4  1  8 значение максимального элемента равно 8 сумма до последнего положительного равна 35 сжатый массив   7  7  7  5  5 -5  6 -4  8  0  0  0  0  0  0