Программировании mBlock есть робот с ультразвуковым датчиком смотрящий в одну сторону(прямо). Какой порядок алгоритма для самостоятельного прохождения лабиринта.
Как уже видно на чертеже, впереди есть тупик, как можно прописать код так, чтобы робот не поехал назад в точку старта?
​

Не очень хорошо сформулирован вопрос.Эта программа генерирует 3 числа от -9 до 9 и выводит сначала все числа,затем наибольшее и наименьшее.
var a,b,c : Integer; 
begin 
Randomize;
a:=random(19)-9;
b:=random(19)-9;
c:=random(19)-9;
Writeln(a+' '+b+' '+c);
if((a>b)and(a>c)) then 
Writeln('Наибольшее '+a) 
else if(b>c) then  
Writeln('Наибольшее '+b) 
else 
Writeln('Наибольшее '+c);
if((a<b)and(a<c)) then 
Writeln('Наименьшее '+a) 
else if(b<c) then  
Writeln('Наименьшее '+b) 
else 
Writeln('Наименьшее '+c); 
end.

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
  Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
  Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
  Writeln('Справа налево: ',100*e+10*d+s);
  Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.

Пример
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283