program abc;
var
i,pos,tmp,count:integer;
a:array[1..6] of integer;
begin
count:=0; a[1]:=1; a[2]:=4; a[3]:=2; a[4]:=4; a[5]:=7; a[6]:=9;
pos:=1;
while pos <= 6 do
begin
count:=count+1;
if (pos=1) or (A[pos-1]<=A[pos]) then
pos:=pos+1
else
begin
tmp := a[pos-1];
a[pos-1] := a[pos];
a[pos] := tmp;
pos:=pos-1;
end;
write ('count ',count,', pos',pos,';');
for i:=1 to 6 do
write(' ', a[i]);
writeln;
end;
end.
cHJvZ3JhbSBhYmM7CnZhcgoJaSxwb3MsdG1wLGNvdW50OmludGVnZXI7CglhOmFycmF5WzEuLjZdIG9mIGludGVnZXI7CgkKYmVnaW4KCWNvdW50Oj0wOyBhWzFdOj0xOyBhWzJdOj00OyBhWzNdOj0yOyBhWzRdOj00OyBhWzVdOj03OyBhWzZdOj05OwoJcG9zOj0xOwoJd2hpbGUgcG9zIDw9IDYgZG8KCWJlZ2luCgkJY291bnQ6PWNvdW50KzE7CgkJaWYgKHBvcz0xKSBvciAoQVtwb3MtMV08PUFbcG9zXSkgdGhlbgoJCQlwb3M6PXBvcysxCgkJZWxzZSAKCQliZWdpbgoJCQl0bXAgOj0gYVtwb3MtMV07CgkJCWFbcG9zLTFdIDo9IGFbcG9zXTsKCQkJYVtwb3NdIDo9IHRtcDsKCQkJcG9zOj1wb3MtMTsKCQllbmQ7CgkJd3JpdGUgKCdjb3VudCAnLGNvdW50LCcsIHBvcycscG9zLCc7Jyk7CgkJZm9yIGk6PTEgdG8gNiBkbwoJCQl3cml0ZSgnICcsIGFbaV0pOwoJCXdyaXRlbG47CgkJCgkJCgllbmQ7CmVuZC4=
count 1, pos2; 1 4 2 4 7 9
count 2, pos3; 1 4 2 4 7 9
count 3, pos2; 1 2 4 4 7 9
count 4, pos3; 1 2 4 4 7 9
count 5, pos4; 1 2 4 4 7 9
count 6, pos5; 1 2 4 4 7 9
count 7, pos6; 1 2 4 4 7 9
count 8, pos7; 1 2 4 4 7 9