Если можно,через циклы
Вводятся действительные a и x и натуральное n. Вычислить Y Y= x + x^3/3 + x^5/5 + … + x^2n-1/(2n-1).

var x,xn,y:real; n,i:integer;
begin
readln(x);
readln(n);
xn:=x;
y:=x;
for i:=2 to n do 
 begin
 xn:=xn*x*x;
 y:=y+xn/(2*i-1);
 end;
writeln(y:5:3);
end.

Пример:
1.8
5
38.309