const a_min=0; a_max=9; n=10; var a: array [1..n] of integer; c,i,j,k: integer; BEGIN randomize; for j:=1 to n do a[j]:=a_min+random(a_max-a_min+1); for i:=2 to n do begin write(a[1]); {виведення поточного стану} for k:=2 to n do write (' ',a[k]); writeln; c:=a[i]; j:=i-1; while (j>=1) and (a[j]>c) do begin a[j+1]:=a[j]; j:=j-1; end; a[j+1]:=c; end; write(a[1]); {виведення кінцевого стану} for k:=2 to n do write (' ',a[k]); writeln; end.