Помогите написать оптимальный алгоритм по рисунку

 uses
  Robot;
var
  j, n: integer;
begin
  Task('cc12');
  j := 1;
  n := 2;
  paint; 
  down;
  while not WallFromDown do//Условие для остановки робота в правом нижнем углу
  begin
    for j := 1 to n - 1  do
    begin
      paint;
      if not wallfromright then//Условие для остановки робота справа
        right; 
    end;
    for j := 1 to n - 1 do 
    begin
      paint;
      if not wallfromleft then//Условие для остановки робота слева
        left; 
    end;
    n := n * 2;//Закономерность для незакрашенных точек
    paint; 
    down; 
  end; 
end.

 uses
  Robot;
var
j, n: integer;
 
begin
Task('cc12');
j := 1;
n := 1;
while not WallFromDown do//Условие для остановки робота в правом нижнем углу
begin
for j := 1 to n do
begin
paint;
right;
end;
for j := 1 to n do
right;
down;
n := n * 2;
for j := 1 to n do 
begin
left;
paint;
end;
n := n * 2;//Закономерность для незакрашенных точек
down;
end; 
end.

uses
  Robot;
var
j,  n: integer;
 
begin
Task('cc12');  
n := 1;   
while not WallFromDown do//Условие для остановки робота в правом нижнем углу
begin
  for j := 1 to n do
  begin
    paint;
    if j<>n then right;
  end;
  for j := 1 to n do right;
  down;
  for j := 2*n downto 1 do begin
    paint;
    if j<>1 then left;
  end;
  down;
  n := n * 4;
end;
end.