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.未完成，保留程序