робот робот

uses
  Robot;

var
  a: integer;

begin
  Task('mix5');
  
  var k: byte := 0;
  while not WallFromRight do
  begin
    if cellIsPainted then begin
      while not WallFromDown do
      begin
        down;
        paint;
        inc(k);
      end;
      for var i := 1 to k do up;
      a := 0;
      while not WallFromLeft do
      begin
        k := 0;
        left;
        paint;
        a := a + 1
      end;
      for var i := 1 to a do right;
      a := 0;
      
      while not WallFromRight do 
      begin
        
        right;
        paint;
        a := a + 1;
      end;
      for var i := 1 to a do left;
      a := 0;
      while not WallFromUp do
      begin
        
        up;
        paint;
        a := a + 1;
      end;
      for var i := 1 to a do down;
     
    end;
  end;
end.