program clock;
type
  AA:array[1..9,1..11] of integer;
const
  s:array[1..9] of string=(('ABDE'),('ABC'),('BCED'),('ADG'),('BDEFH'),('CFI'),('DEGH'),('GHI'),('EFHI'));
var
  a:AA;
  q:char;
  i,j:longint;
  procedure change(w:AA);
    var
    begin

    end;
begin
  for q:=3 to 11 do
    read(c[1,i]);
  i:=1;j:=2;
  while m do
    begin
      for k:=3 to 11 do
        begin
          for l:=3 to 11 do
            a[j,l]:=a[i,l];
          a[j,1];=i;a[j,2]:=k
          change(a[j],k);
          inc(j);
        end;
    end;
end.


未完成，保留程序