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

uses Robot;

begin

 Task('if2');

Paint;

Up; if WallFromUp then Paint; Down;

Right; if WallFromRight then Paint; Left;

Down; if WallFromDown then Paint; Up;

Left; if WallFromLeft then Paint; Right;

end.