begin. for i:=-2031 to 5021 do

begin

min: =5022;

sum: =0;

for i: =-2031 to 5021 do

begin

if (i mod 7 = 0) and (i mod 2 < > 0) and (i mod 3 < > 0) then

begin

sum: = sum + i;

if i < min then min: =i;

end;

Writeln(sum);

Writeln(min);

End.

Здесь заводим переменные, которые нужны для решения задачи.

В переменную min кладём максимальное значение. Можно положить значение 5021 + 1.

Важно знать: Если мы ищем минимальное значение, то в начале в переменную min кладём максимальное значение.

Далее делаем аналогично предыдущей задаче. Нечётное число - это то число, которое не делится на 2.

Когда ищем минимальное значение, то в условии меняем знак на " меньше".

Важно знать: Когда ищем сумму, в ЦИКЛЕ суммируем сами значения переменной i.

После запуска программы получаем, что минимальное значение равно -2023, а сумма равна 500976.

Ответ: -2023500976

По ссылке https: //code-enjoy. ru/ege_po_informatike_2021_zadanie_17_pishem_programmu/

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