Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Наименьшим будет 0, так как вначале идет генерация чисел от -49 до 50
потом в массив b записали квадраты этих чисел , то есть в начале и в конце будут наибольшие числа и ближе к центру они будут уменьшаться , так как в массиве нет отрицательных и есть цифра 0, то 0*0=0, вот и наш ответ.