Вывести на экран значения элементов по 10 в ряд, сумму и произведение. y=1 + x^2/1 - x^1/2 + (программа Паскаль)

var n,i:integer;
    x,s,t:real;
begin
write('x=');
readln(x);
write('n=');
readln(n);
s:=1;
for i:=1 to n do
if odd(i) then s:=s+power(x,i+1)/i
else s:=s-power(x,i-1)/i;
write('S=',s:0:2)
end.