robot2

uses
  Robot;

begin
  Task('c15');
  
  var k: byte := 0;
  while not WallFromDown do
  begin
    Down;
    Paint;
    inc(k); // Кол-во шагов вниз
  end;
  for var i := 1 to k do Up; //возвращение в исходную
  while not WallFromleft do
  begin
    left;
    Paint;
  end;
  for var i := 1 to k do right; //возвращение в исходную
  while not WallFromright do
  begin
    right;
    Paint;
  end;
  for var i := 1 to k do left; //возвращение в исходную
  while not WallFromUp do
  begin
    Up;
    Paint;
  end;
  for var i := 1 to k do Down; //возвращение в исходную
  paint;
  
end.