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


будет -64, объясните пож, каким образом?