помогите паскаль!

[lompart251]

Помогите решить! Буду признателен.
Вот условие!

[Arigato]

С циклами работать умеем?

[lompart251]

Эммм,а где решение?

[Mad_Cat]

...Контакты:

[Stilet]

где решение?

Вот:

p:=1;
for j:=1 to 7 do p:=p*a[j];
for j:=1 to 10 do begin
 for i:=1 to 10 do sum:=sum+b[i]*b[i];
 c[i]:=(b[i]-a[1])*sum/p
end;
for j:=1 to 10 do begin writeln(c[i]);

Ну надеюсь массивы и переменки сам обьявишь? )