Сумма бесконечного ряда, Pascal
 

Помогите плиззз ребята.
Вычислить сумму бесконечного ряда, используя подпрограммы типа функция.
вот программа
uses crt;
var x,eps,s,y:real;
f,i:integer;
begin
read(x,eps);
writeln ('номер',' член ряду',' поточна сума');
s:=0;y:=1;i:=1;f:=2;
while abs(y)>eps do
begin
y:=((cos(i)*sin(i)+(i*x))/(f+exp(i+x)));
s:=s+y;
writeln (i:3,y:12:6,s:12:6);
i:=i+1;f:=f*i
end;
writeln ('остаточна сума = ',s:12:6);
end.
сделайте правельно очень прошу, сказали что семечки)

Во-первых, за каким бесом Вы полезли в чужую тему, да еще ту, где обсуждается программа на QuickBasic? А во-вторых, будьте так любезны ПОЛНОСТЬЮ выложить задание. Тогда и разбираться будем.