uses Graph,CRT;
Const
 Step=10;
 Step_move=4;
var
 Driver, Mode:Integer;
 CenterX,CenterY:Integer;
 Clr_for,Clr_bck:Word;
 Ch:Char;

Procedure Figure(Clrf,XcF,YcF:Word);
begin
 SetColor(Clrf);
 Circle(XcF,YcF,2*Step);
 Circle(XcF-3*Step,YcF,Step);
 Circle(XcF+3*Step,YcF,Step);
 Circle(XcF,YcF-3*Step,Step);
 Circle(XcF,YcF+3*Step,Step);
 Rectangle(XcF-4*Step,YcF+4*Step,XcF+4*Step,YcF-4*Step);
 Rectangle(XcF-3*Step,YcF+3*Step,XcF+3*Step,YcF-3*Step);
 Line(XcF-Step*4,YcF-Step*4,XcF+Step*4,YcF+Step*4);
 Line(XcF-Step*4,YcF+Step*4,XcF+Step*4,YcF-Step*4);
end;

Begin
 Driver:=Detect;
 InitGraph(Driver,Mode,' ');
 if GraphResult <> grok then Halt(1);
 CenterX:=(GetMaxX+1) div 2;
 CenterY:=(GetMaxY+1) div 2;
 Clr_for:=GetColor;
 Clr_bck:=GetBkColor;
 SetLineStyle(SolidLn,0,ThickWidth);
 Figure(Clr_for,CenterX,CenterY);
 Repeat
  Ch:=ReadKey;
  If (Ch=#72) and (CenterY-Step*4>=Step_move) then
   begin
    Figure(Clr_bck,CenterX,CenterY);
    CenterY:=CenterY-Step_move;
    Figure(Clr_for,CenterX,CenterY);
   end
  else
  If (Ch=#75) and (CenterX-Step*4>=Step_move) then
   begin
    Figure(Clr_bck,CenterX,CenterY);
    CenterX:=CenterX-Step_move;
    Figure(Clr_for,CenterX,CenterY);
   end
  else
  If (Ch=#80) and (CenterY+Step*4<=GetMaxY-Step_move) then
   begin
    Figure(Clr_bck,CenterX,CenterY);
    CenterY:=CenterY+Step_move;
    Figure(Clr_for,CenterX,CenterY);
   end
  else
  If (Ch=#77) and (CenterX+Step*4<=GetMaxX-Step_move) then
   begin
    Figure(Clr_bck,CenterX,CenterY);
    CenterX:=CenterX+Step_move;
    Figure(Clr_for,CenterX,CenterY);
   end
  else
  If Ch=#27 then CloseGraph;
 Until Ch=#27;
End.