Нужна по информатике

напишите для робота алгоритм, закрашивающий все клетки, расположенные непосредственно над лестницей, как показано на рисунке. робот должен закрасить только клетки, удовлетворяющие данному условию. например, для выше рисунка робот должен закрасить следующие клетки (рисунок)
конечное расположение робота может быть произвольным. алгоритм должен решать для бесконечного поля и любого количества ступеней. при исполнении алгоритма робот не должен разрушиться.


​

Впоследовательности ошибка, там не 18, а 17. // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var a,b,c,d: integer;   (a,b,c): =(1,1,1);   print(a,b,c);   for var i: =1 to 20 do begin       d: =a+b+c; print(d);       (a,b,c): =(b,c,d)       end;   writeln end. результат 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329

Впрограмме генерируются только убывающие последовательности (a[i]: =-i+random()+20; ). можно при желании массив вводить с клавиатуры. const n=15; var a: array[1..n] of real; i: integer; b: boolean; begin randomize; for i: =1 to n do begin   a[i]: =-i+random()+20;   write(a[i]: 5: 2,' ');   end; writeln; b: =true; for i: =1 to n-1 do   if a[i+1]> =a[i] then b: =false; if b   then    begin   writeln('последовательность убывающая');   writeln('p = ',a[n]*a[n div 2+1]: 5: 2);   end   else writeln('последовательность не убывающая') end. пример: 19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19   9.66   8.35   7.37   6.55   5.20  последовательность убывающая p = 66.86