Задан массив B[1..30]. Отсортировать все элементы с n-го по k-ый по

const NN=30;
var
nbsp;nbsp;b:array[1..NN] of integer;
nbsp;nbsp;i,j,k,l,n:integer;
begin
nbsp;nbsp;randomize;
nbsp;nbsp;writeln(B:);
nbsp;nbsp;for i:=1 to NN do begin
nbsp;nbsp;nbsp;nbsp;b[i]:=random(101)-50;
nbsp;nbsp;nbsp;nbsp;write(b[i]:4);
nbsp;nbsp;end;
nbsp;nbsp;writeln; nbsp;nbsp;nbsp;
nbsp;nbsp;write(n,k=);readln(n,k);
nbsp;nbsp;for i:=1 to NN-1 do
nbsp;nbsp;nbsp;nbsp;for j:=i+1 to NN do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if (igt;=n) and (ilt;=k) and (jgt;=n) and (jlt;=k) and (b[i]gt;b[j]) then begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;l:=b[i];
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;b[i]:=b[j];
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;b[j]:=l;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;writeln(B_new:);
nbsp;nbsp;for i:=1 to NN do write(b[i]:4);
nbsp;nbsp;
end.