решить функцию

[Waia]

Дано X
определить Y=(X^2)+3*(X^3)+5*(X^5)+7*(X^7)+9*( X^9) . Для X=0,5; 1;2.
игрек = x в квадрате + три x в кубе +пять x в пятой + cемь x в седьмой + девять x в девятой)

[puporev]

uses crt;
function F(x:real):real; {функция, считает по формуле}
var k,t,y:real;
    i:byte;
begin
y:=x*x;{первое значение у}
t:=x;   {начальное значение х в степени}
for i:=1 to 4 do
  begin
   k:=2*i+1; {считаем коэффициент}
   t:=t*x*x;  {считаем степень х}
   y:=y+k*t;  {считаем сумму}
  end;
F:=y;
end;
begin
clrscr;
writeln('Y(0.5)=',F(0.5):0:4);
writeln('Y(1.2)=',F(1.2):0:4);
readln
end.