Çàäà÷à . 1489

var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=(x-5)*(x+3);
end;
BEGIN
  a:=-5; b:=5;
  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.

#include<stdio.h>
int F(int x)
{
return  (x-5)*(x+3);   
}
main()
{
     int a=-5,b=5,M, R;
     M=a; R=F(a);
 for(int t=a;t<= b;t++)
    if (F(t)>R)
    {
      M=t;
      R=F(t);
    }
 printf("%d",M);
}