program snake;
uses Crt;
var
  HeadX,HeadY,BodyX,BodyY,TailX,TailY:byte;
  Wiggle:String;

procedure Board;
var X,Y:byte;
begin
  For Y:=1 to 9 do
   begin
   For X:=1 to 9 do
    begin
     if (((HeadX=X) and (HeadY=Y)) or ((BodyX=X) and (BodyY=Y)) or ((TailX=X) and (TailY=Y))) then
       TextColor(Green) else TextColor(White);
     Write('# ');
    end;
   WriteLn;
   end;
end;

begin
 TailX:=4; TailY:=5;
 BodyX:=5; BodyY:=5;
 HeadX:=6; HeadY:=5;
 Board;

 Write('Where shall I wiggle? '); ReadLn(Wiggle);
 ReadLn;


end.