На бесконечном поле имеется стена. Стена состоит из трёх последовательных отрезков: вправо, вниз, влево, все отрезки неизвестной длины. Робот находится в клетке, расположенной непосредственно сверху левого конца. ​

я так понимаю, что нужно закрасить тёмные клетки.

Объяснение:

нц пока снизу не свободно

вправо

КЦ

нц пока снизу свободно

вниз

закрасить

КЦ

нц пока снизу не свободно

закрасить

вправо

кц

program pyat;

var a, b, c, d ,f, p : integer;

begin

writeln ('vvedite dlini storon pyatiugolnika');

readln (a);

readln (b);

readln (c);

readln (d);

readln (f);

p: = a+b+c+d+f;

writeln ('perimetr raven', p);

readln;

end.

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.