Паскаль. Процедуры и функции. Арифметика

[infff]

Паскаль.Процедуры и функции
Дано действительное число y. Получить:

          1.7*t(0.25)+2*t(1+y)
            ------------------ ,
               6-t(y^2-1)


                          4
                         ----     x+1
                          >     -------
                         ----   (2*k+1)!
                         k=0     
    где   t(x)=     ------------------
                          4   
                         ----     x*k
                          >     -------
                         ----    (2*k)!
                         k=0

Подскажите с решением плз ато дальше этого нечо немогу придумать:

write('Введите Y: ');readln(y);
writeln((1.7*t(0.25)+2*t(1+y))/(6-t(sqr(y)-1)):10:5);

[Roof]

Сделай формулы в ворде хотя бы и выложи файл с ними. Или картинку с формулами прикрепи к посту. А то так по условию ничего не ясно.

[OCTAGRAM]

function Fact(p : Integer) : LongInt;
var
  r : LongInt;
  i : Integer;
begin
  r := 1;
  for i := 1 to p do
    r := r * i;
  Fact := r;
end;

function t(x : Real) : Real;
var
  k : Integer;
  up, down : Real;
begin
  up := 0; down := 0;
  for k := 0 to 4 do
  begin
    up := up + (x + 1) / Fact(2 * k + 1);
    down := down + x * k / Fact(2 * k);
  end;
  t := up / down;
end;

var
  Y : Real;
begin
  Write('Введите Y: '); ReadLn(Y);
  Write('Результат: ');
  WriteLn((1.7 * t(0.25) + 2 * t(1 + y))
          /
          (6 - t(sqr(y) - 2)) : 4 : 4);
  ReadLn;
end.

Если всё правильно, график этой функции:

[infff]

Спасиб большое

[desir]

а как ее написать на С++???

[desir]

#include <conio.h>
#include <math.h>
#include <iostream.h>

float f;

{ double r=0;
for(int i=1;i<=10;i++);
r+=i*x/pow(x+i,3);
return r;}
void main(void)
{float y,k,f;
cout<<"Vvedite Y:";
cin>>y>>f;
k=1.7*T(0.25)+2*T(1+y)/6-T(sqrt(double y)-1);
cout<<"resultat="<<k;
getch();
}
как ее правильно сделать????