Составьте программку рисования узора.

и в чем это?

бот

Что бот? какой бот? Надобно писать в стиле программка/среда такая то, версия такая то, модуль таковой-то.

//PascalABC.NET версия 3.2, сборка 1389

//Right перемещает Робота на право;
//Left перемещает Бота на лево;
//Up перемещает Робота вверх;
//Down перемещает Бота вниз;
//Paint закрашивает текущую ячейку;
//FreeFromLeft отдаёт True если слева от Робота свободно;
//FreeFromRight отдаёт True если справа от Робота свободно;
//FreeFromUp отдаёт True если сверху от Робота свободно;
//FreeFromDown отдаёт True если снизу от Робота свободно;


uses Robot;
const
    h = 10;
    w = 15;

begin
    Field(w, h);
    for var i := 1 to w div 2 do Left;
    for var i := 1 to h div 2 do Up;
    Stop;
    
    for var i := 1 to h do
    begin
        if(i mod 2 = 0) then
            repeat
                if FreeFromLeft then Left;
                Paint;
                if FreeFromLeft then Left;
                Paint;
                if FreeFromLeft then Left;
            until not FreeFromLeft
        else
            repeat
                if FreeFromRight then Right;
                Paint;
                if FreeFromRight then Right;
                if FreeFromRight then Right;
            until not FreeFromRight;
        if FreeFromDown then Down;
    end;
end.