Лабиринты для исполнителя Робот - PascalABC.NET

Формулировка задачи:

Здравствуйте! Кто нибудь не работал с исполнителем Робот в ПаскальАБС? Как найти лабиринт который я сейчас попробую прикрепить....

Решение задачи: «Лабиринты для исполнителя Робот»

Листинг программы

uses Robot;
begin
Task('????');
for var i:=1 to 10 do
 begin
  if CellisPainted then 
   begin
    while FreeFromRight do Right;
    if CellisPainted then 
     begin
      while FreeFromLeft do
       begin
        Paint;
        Left;
       end;
    end;
   end;
   Down;
 end; 
end.

Объяснение кода листинга программы

Импортируется пространство имен Robot.
Объявляется задача с названием ????.
Запускается цикл, который выполняется 10 раз.
В каждой итерации цикла проверяется, окрашена ли ячейка.
Если ячейка окрашена, то выполняется внутренний цикл, пока не будет свободных ячеек справа.
Если внутренняя задача завершена, то выполняется еще один внутренний цикл, пока не будет свободных ячеек слева.
Если внутренняя задача завершена, то выполняется команда Paint, которая окрашивает текущую ячейку.
После этого выполняется команда Left, которая перемещает робота влево.
После выполнения внутренней задачи выполняется команда Down, которая перемещает робота вниз.
После завершения внешнего цикла выполняется команда End.