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

[random7]

http://pic.ipicture.ru/uploads/090918/ikyxRzTa31.jpg

Программу составил, но не уверен что верно, поправьте пожалуйста, если есть ошибки:

program lab1_2;
uses crt;
var y,w,n,esp:real;
A:integer;
BEGIN
clrscr;
writeln('Введите A');
read(A);
writeln('Введите esp');
read(esp);
w:=0.0;
n:=1;
y:=1/(n*(n+A));
while y >= esp do
begin
y:=1/(n*(n+A));
w:=w+y;
n:=n+1;
end;
writeln('w=',w:5:3);
readln;
readln;
END.

[Stilet]

Вроде верно. Результат нужный выдает?

[random7]

Она работает, и результат выдает, только никак не пойму правильный он или нет)

[sheka]

Введи А=0, епсилон 0.1 и посчитай на калькуляторе для двух разных n.
А потом "научным" заключением, типа мат.индукции - раз для 2х работает, то и для 3х тоже))