Написать программу для паскаля. Дан массив x размера n (n=10) целыхчисел, содержащий…

Program gt; var A,B,C: array[1… 1000]of longint; p,l,n,i,j,k,w: longint; beginn: =10; for i: =1 to n doread (A[i]); k: =0; w: =0; for i: =1 to n dobeginif (A[i]<0) then begink: =k+1; b[k]: =a[i]; end; if (A[i]>0) then beginw: =w+1; c[w]: =a[i]; end; end; for i: =1 to k-1 dofor j: =1 to k-i dobeginp: =b[j]; l: =b[j+1]; if b[j]