РОБОТ

uses
  Robot;

begin
  Task('w12');
  
 
  // Oкаймление рамки
  while FreeFromDown and FreeFromRight do 
  begin
    Down;
    Paint;
  end;
  while FreeFromDown and WallFromRight do 
  begin
    Down;
    Paint;
  end;
  while FreeFromDown and FreeFromUp do 
  begin
    Right;
    Paint;
  end;
  while FreeFromDown and WallFromUp do 
  begin
    right;
    Paint;
  end;
  while FreeFromUp and FreeFromLeft do
  begin
    up;
    paint;
  end;
  while FreeFromUp and WallFromLeft do
  begin
    up;
    paint;
  end;
  while FreeFromUp and FreeFromDown do
  begin
    left;
    paint;
  end;
  while FreeFromUp and wallFromDown do
  begin
    left;
    paint;
  end;
end.