Решение необходимо как кислород ,паскаль дан одномерный целочисленный массив размерностью n. сформировать новый массив из элементов исходного, расположенных до первого отрицательного элемента и большего первого элемента исходного массива. если такие элементы отсутствуют, то выдать об этом сообщение

Program diagonal; uses crt; const n = 5; type mas = array [1..n, 1..n] of integer;             vec = array [1..n*n] of integer; var a: mas;         v: vec;         i, j , k: integer;         p : longint; begin   clrscr;   randomize;   p: =1;   writeln('massiv a: ');   for i: =1 to n do     begin           for j: = 1 to n do                 begin                     a[i, j]: = 1+random (9);                     p: =p*a[i,i];                     write(a[i, j]: 4);                 end;     writeln; writeln;     end; k: =0; for i: =1 to n do   for j: =1 to n do           begin               if (a[i,j]> p) and (j< i) then                   begin                       k: =k+1;                     v[k]: =a[i, j];                   end;           end;   writeln('vector v=');   for j: =1 to k do         write(v[j]: 4);   writeln;   if k=0 then writeln ('none'); readln; end.

1.возьми корзины с фасолью. 2.поставь их на пол. 3.сядь. 4.начинай разбирать.