uses
  robot;

begin
  Task('cif9');
  while  FreeFromRight do
  begin
    if freefromup and freefromdown then right
     else if freefromdown then
    begin
      down;
      paint;
      up;
      right;
    end
    else if freefromup then
    begin
      up;
      paint;
      down;
      right;
    end

    else
    begin
      paint;
      right;
    end;
  end;
end.