циклы в паскаль

[Dagestanov]

помогите пожалуйста с задачей, я вообще не понимаю это задание:

1. Найти сумму ряда с точностью до члена ряда, меньшего (задается с клавиатуры) для заданного значения и сравнить эту сумму с функцией контроля
напишите пожалуйста код программы:
задание номер 6

[rubius2008]

...
n:=0; f:=1; s:=0;
while exp((2*n+1)*ln(x))/f>=eps do begin
  s:=s+exp((2*n+1)*ln(x))/f;
  n:=n+1;
  f:=f*2*n*(2*n+1);
end;
...

а дальше нужно сравнить s с функцией контроля (третий столбик) для того же х, можно посмотреть разность по модулю.

[Dagestanov]

А можно полностью прописать потому что я не знаю в pascal ничего, задали лабы