РОБОТ2

uses
  Robot;

begin
  Task('count4');
  var K: byte := -1;
  while wallFromDown do
  begin
    right;
    inc(k);
  end;
  if not wallFromDown then
  begin
    down;
    left;
  end;
  //Возврат в Нужную точку
  left;
  for var i := 1 to (k - 1) do left; 
end.