Известно, что робот находится рядом с левым входом в горизонтальный коридор. составьте алгоритм, под которого робот закрасит все клетки этого коридора и вернется в исходное положение 7 класс

  влево - прямо -прямо - назад- назад : )

Var a1, a2, q1, q2, i: integer; begin       for i : = 1000 to 9999 do       begin           a1 : = i div 1000;           a2 : = i mod 1000 div 100;           q1 : = i mod 100 div 10;           q2 : = i mod 10;           if (a1 + a2 > q1 + q2) then             writeln(i);       end; end.только выполняться сиё чудо будет секунд 30: )

Прошу: ) var a, b, c, d: integer; begin       readln(d);       a : = d div 100;       b : = d mod 100 div 10;       c : = d mod 10;       writeln(b, c, a); end.можно ещё сократить: var a, b, c, d: integer; begin      readln(d);       writeln(d mod 100 div 10, d mod 10, d div 100); end.или даже: var a, b, c, d: integer; begin      readln(d);       a : = d div 100;       writeln(d - a * 100, a); end.