Program zadacha1; 
uses graph,crt; 
var driver,mode,m,n:integer; 
stroka:string[1]; 
const 
l:array [0..7] of string[1] =('a','b','c','d','e','f','g','h'); 
begin 
driver:=detect; 
Initgraph(driver,mode,'c:/bp/bgi'); 
setcolor(15); 
for n:=1 to 8 do 
for m:=0 to 7 do 
rectangle(n*50,m*50,n*50+50,M*50+50); 
for n:=0 to 3 do 
begin 
for m:=0 to 3 do 
begin 
floodfill(100*n+75,100*m+25,15); 
floodfill(100*n+125,100*m+75,15); 
end; 
end; 
for n:=0 to 7 do 
begin 
str(n+1,stroka); 
OutTextXY(25,n*50+22,stroka); 
end; 
for n:=0 to 7 do 
OutTextXY(n*50+70,415,l[n]); 
readln; 
closegraph; 
end.

Program zadacha1;
uses
  graph,crt;

var
  driver,mode,m,n:integer;
  stroka:string[1];

const
  l:array [0..7] of string[1] =('a','b','c','d','e','f','g','h');
{**************************}
  Kx:integer=5;
  Ky:integer=4;
{**************************}

begin
  driver:=detect;
  Initgraph(driver,mode,'c:/bp/bgi');
  setcolor(15);
  SetFillStyle(1,15);
  for n:=1 to 8 do
    for m:=0 to 7 do rectangle(n*50,m*50,n*50+50,M*50+50);
  for n:=0 to 3 do begin
    for m:=0 to 3 do begin
      floodfill(100*n+75,100*m+25,15);
      floodfill(100*n+125,100*m+75,15);
    end;
  end;
  for n:=0 to 7 do begin
    str(n+1,stroka);
    OutTextXY(25,n*50+22,stroka);
  end;
  for n:=0 to 7 do OutTextXY(n*50+70,415,l[n]);

{**************************}
  SetColor(LightRed);
  Ky:=8-Ky;
  for n:=1 to 8 do
    for m:=0 to 7 do
      if (Abs(n-Kx)=2)and(Abs(m-Ky)=1)or(Abs(n-Kx)=1)and(Abs(m-Ky)=2) then begin
        Line(n*50,m*50,(n+1)*50,(m+1)*50);
        Line(n*50,(m+1)*50,(n+1)*50,m*50);
      end;
{**************************}

  readln;
  closegraph;
end.

{**************************}
  SetColor(LightRed);
  Ky:=8-Ky;
  for n:=1 to 8 do
	for m:=0 to 7 do
	  if (Abs(n-Kx)=2)and(Abs(m-Ky)=1)or(Abs(n-Kx)=1)and(Abs(m-Ky)=2) then begin
		Line(n*50,m*50,(n+1)*50,(m+1)*50);
		Line(n*50,(m+1)*50,(n+1)*50,m*50);
	  end{<---- убери ';'}
	else {<----вот сюда ,рисуем окружность}
{**************************}

Circle (X, Y: Integer; R: word) 

Цитата(leahov @ 3.06.2006 12:16)

Circle (X, Y: Integer; R: word) 

{**************************}
  SetColor(LightRed);
  Ky:=8-Ky;
  for n:=1 to 8 do
    for m:=0 to 7 do
      if (Abs(n-Kx)=2)and(Abs(m-Ky)=1)or(Abs(n-Kx)=1)and(Abs(m-Ky)=2) then begin
        Line(n*50,m*50,(n+1)*50,(m+1)*50);
        Line(n*50,(m+1)*50,(n+1)*50,m*50);
      end
      else Circle(n*50+25,m*50+25,20);
{**************************}