Сумма бесконечного ряда, 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...