... Oy} OutTextXY(X 0-2 0,50,'y'); For k: =-1 to 4 do Begin i:=X0; j:=-k*E+Y0; Str(k,S); If k<>0 then OutTextXY(i-20,j,S); Bar(i-1,j-1,i+1,j+1); End; For i:=X 0-2 *E to X0+2*E do ... ((i<>Hi)or(j<>Hj)) and((Abs(i-Hi)=Abs(Ord(j )- Ord(Hj)))or(i=Hi)or(j=Hj)) then Bar(X+(i-1)*W,Y-(Ord(j )- Ord('a'))*W,X+i*W,Y-(Ord(j)-Ord('a')+1)*W); Readln; CloseGraph; ... OutTextXY(370,20,Hj); H:=ReadKey; Hi:=Ord(H)-Ord('0'); OutTextXY(380,20,H); SetColor(4); Circle(X+(Hi-1)*W+W div 2,Y-(Ord(Hj )- Ord('a'))*W-W div 2,W div 2-5 ); GetFillPattern(Pattern);...