记录编号	136046	评测结果	AAAAA
题目名称	黑白棋子的移动	最终得分	100
用户昵称	传奇	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2014-11-02 11:01:28	内存使用	0.17 MiB

program cojs1161;
var
  c:array[1..100] of char;
  st,sp,i,j,k,m,n:longint;
procedure print;
var
  i:longint;
begin
  write('step ',st,':');
  for i:=1 to 2*(n+1) do
    write(c[i]);
  writeln;
  inc(st);
end;
procedure move(k:longint);
var
 j:longint;
begin
  for j:=0 to 1 do
    begin
      c[sp+j]:=c[k+j];
      c[k+j]:='-';
    end;
  sp:=k;
  print;
end;
procedure mv(n:longint);
var
   i,k:longint;
begin
  if n=4 then
    begin
      move(4);move(8);move(2);move(7);move(1);
    end
  else
    begin
      move(n); move(2*n-1); mv(n-1);
    end;
end;
begin
  assign(input,'chessman.in');
  assign(output,'chessman.out');
  reset(input);
  rewrite(output);

  readln(n);
  st:=0; sp:=2*n+1;
  for i:=1 to n do
    c[i]:='o';
  for i:=n+1 to 2*n do
    c[i]:='*';
  c[2*n+1]:='-';
  c[2*n+2]:='-';
  print;
  mv(n);

  close(input);
  close(output);
end.