ДАЮ 50 БАЛОВ! ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ!

Напишите программу для истолнителя робота, чтобы он прошол указанной точки закрасил квадраты по образцу (при написании алгоритма используйте цикл пока и ветвление).
Для написания алгоритма можно использовать ниже перечисленные команды:
вверх
вниз
влево
вправо
сверху свободно
снизу свободно
слева свободно
справа свободно
Эти команды можно использовать вместе с условием «если», имеющим следующий вид:
если условие то
последовательность команд
все
Например, для передвижения на одну клетку вправо, если справа нет стенки, и закрашивания клетки можно использовать такой алгоритм:
если справа свободно то
вправо
закрасить
все
В одном условии можно использовать несколько команд проверки условий, применяя логические связки и, или, не, например:
если (справа свободно) и (не снизу свободно) то
вправо
все
Для повторения последовательности команд можно использовать цикл «пока», имеющий следующий вид:
нц пока условие
последовательность команд
кц
Например, для движения вправо, пока это возможно, можно использовать следующий алгоритм:
нц пока справа свободно
вправо
кц

readln a readln b readln c if a=b and b=c then write (" треугольник равносторонний") elsr if (a=b) or ( a=c) or (b=c) then write ("треугольник равнобёдренный")end