Var a,b,t,M,R:integer; Function F(x:integer):integer;

begin

F:=-(x+4)*(x+2);

end;

BEGIN

a:=-20; b:=20;

M:=a; R:=F(a);

for t:=a to b do begin

if (F(t)>R)then begin

M:=t;

R:=F(t);

end;

end;

write(M);

END.

(см. объяснение)

Объяснение:

Заметим, что программа ищет такое значение x на отрезке от -20 до 20, при котором значение функции наибольшее. Понятно, что F(x) - это парабола, ветви которой направлены вниз, а вершина находится в точке . Так как в вершине параболы достигается максимально возможное значение F(x) и -3 принадлежит отрезку , то программа выведет число -3.

Задание выполнено!