Всистеме программирования pascal abc выполните проверяемое if1 для исполнителя робот(обойти препятствие и попасть в отмеченную клетку).расположение стен на поле может быть разным.

Так?

uses Robot;
begin
  Task('if1');
  right;
  if WallFromUp then
  begin
    down;
    right;
    up;
  end;
  if wallfromdown then
  begin
    up;
    right;
    down;
  end;
  paint;
end.