Склавиатуры вводится десять целых чисел(до100) , найти произведение тех из них которые делятся на три или которые оканчиваются тройкой

Var ar:array[1..10] of integer;
i,k:integer;
begin;
k:=1;
for i:=1 to 10 do
begin;
readln(ar[i]);
if (ar[i] mod 3=0) or (ar[i] mod 10=3) then k:=k*ar[i];
end;
writeln('Result:',k);
end.

Объяснение:

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

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

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

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

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

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.