программирование Pascal ABC! спасибо!

12)
var s,x:real;
i : integer;
begin
write ('x=');
readln (x);
s:=0;
for i:=1 to 10 do
s:=s + (i+1)*x/i;
writeln ('s=',s);
end.

В 17) заменить цикл
for i:=1 to 7 do
s:=s + sin(i*x)/(2*i);