program dlina; uses crt; const n=10; l=20; m=15; var A:array[1..n] of integer; B:array[1..n] of integer; C:array[1..n] of integer; procedure inmas(var ms:array of integer); var i:byte; begin for i:=0 to high(ms)-1 do begin ms[i]:=random(31)-15; write(ms[i]:4) end; writeln; end; procedure outmas(var ms:array of integer); var i:byte; begin for i:=0 to high(ms)-1 do write(ms[i]:4); writeln; end; procedure sort(a:array of integer); var i,P,j:integer; Begin write('vid sortirovki: 0->, 1<-'); readln(P); for i:=0 to high(a)-1 do for j:=i+1 to high(a) do if ((P=0)and (a[i]>a[j]))or((p=1)and(a[i]