Проблема с формулой

[hunter03]

Здравствуйте, мне нужно подсчитать эти формулы:


никак не получается правильно подсчитать, помогите

[hunter03]

 for j:=1 to n do begin
      s1:=s1+x[j];
      s2:=s2+y[j];
      a[j]:=((n*(s1*s2))-(s1*s2 ) )/ ((n*(s1*s1)) - (s2*s2) );
      end;

Делаю так ответ выходит не тот что нужно...накосячил тут, помогите исправить пожалуйста

[Mandrivnyk]

s1 := 0;
s2 := 0;
s3 := 0;
s4 := 0;
for i := 1 to n do begin
    s1 := s1 + x[i] * y[i];
    s2 := s2 + x[i];
    s3 := s3 + y[i];
    s4 := s4 + x[i] * x[i];
end;
A := (n * s1 - s2 * s3) / (n * s4 - s2 * s2);
B := (s3 - k * s2) / n;

[hunter03]

получается аналогичный ответ...

[hunter03]

все нашел в чем был прикол, спасибо! заработало