Исполнитель Робот действует в следующей обстановке: Для Робота составлена следующая программа: Цикл «пока» выполняется, пока условие истинно, иначе происходит переход к следующей команде программы. Если Робот начинает движение в сторону находящейся рядом с ним стены, то он разрушается и программа останавливается. Сколько из девяти клеток соответствует требованию, что, выполнив предложенную программу, Робот уцелеет и останется в той же клетке, с которой он начал движение?

Program z1;

const n=20; //  значение n можно изменить

var i,max,min,p,imin,imax:integer;

a:array[1..n] of integer;

begin

min:=10000;

for i:=1 to n do begin

 a[i]:=random(51);

 if(a[i] > max) then begin max:=a[i]; imax:=i; end; // 1-ый пункт

 if(a[i] < min) then begin min:=a[i]; imin:=i; end; // 2-ой пункт

 write(a[i]:3);

 end;

p:=a[1]; // 1-ый пункт

a[1]:=a[imax];

a[imax]:=p;

p:=a[2]; // 2-ой пункт

a[2]:=a[imin];

a[imin]:=p;

writeln();

for i:=1 to n do begin

 write(a[i]:3);  

 end;

end.

Объяснение:

Возводить в квадрат надо не отдельно правую и левую части, а разность между левой и правой частями системы (по каждому уравнению отдельно). Потом эти квадраты разностей просуммировать.

Получится функция квадратов невязок системы, которую и нужно минимизировать Поиском решения.

Поскольку эта функция является сумой квадратов,  она не отрицательная для всех значений аргументов, а ее минимальное значение == 0.

Поэтому минимизировать функцию квадратов невязок системы означает - найти такое значение переменных, при которых значение функции невязок равняется 0. Если удастся найти такое решение, то это и будет решением системы.

У Вас на картинках выписана эта функция, но не показано, как Вы применяете Поиск решения для минимизации этой функции.