Решение задач на массивы и циклы. Pascal ABC. Помогите пожалуйста

1)

S := x/3;
Y := S;
while Abs(S) > Eps do
begin
S := -S*x*x/5;
Y := Y + S;
end;
WriteLn(Y:0:7);

2)

Что такое « числовой ряд (от i=5 до 10)C^2»?