Задача на использование функции в циклич процессах

[Full Juice]

Помогите решить задачу в Паскале:

Найти предел последовательности An, которое вычисляется по формуле:
3
n + 2
An=________
3 2
2n - n + 3

Вычисления остановить при выполнении условия |An-An-1| меньше e.
При составлении программы An реализовать в виде функции An

И желательно блок-схему

[Full Juice]

ВОт формула

[RUSt88]

не совсем понятно это

|An-An-1| меньше e

число е (вроде как константа?) - это сколько?

сделаю за 50 WMR, RUSTx88@mail.ru

[ОДИНОЧЕСТВО В СЕТИ]

const eps:=0.01;
var a1,a2:real;
i:integer;
function A(n:word):real;
begin
result:=(sqr(n)*n+2)/(2*sqr(n)*n-sqr(n)+3);
end;
begin
a1:=f(1);
a2:=f(2);
i:=2;
while abs(a2-a1)>=eps do begin
inc(i); 
a1:=a2;
a2:=f(i);
end;
writeln(a2:6:2);
readln;
end.

[Full Juice]

Пишет на счёт result Unknown identifier

[ОДИНОЧЕСТВО В СЕТИ]

Пишет на счёт result Unknown identifier

А вы сами чего нибудь когда нибудь сами делать будете, блин! И нечего мне всякую ерунду в лс слать!

const eps:=0.01;
var a1,a2:real;
i:integer;
function A(n:word):real;
begin
A:=(sqr(n)*n+2)/(2*sqr(n)*n-sqr(n)+3);
end;
begin
a1:=a(1);
a2:=a(2);
i:=2;
while abs(a2-a1)>=eps do begin
inc(i); 
a1:=a2;
a2:=a(i);
end;
writeln(a2:6:2);
readln;
end.

[Full Juice]

Я Сделал сам!
Ты переменную не обозначил какого типа она должна быть!
я поставил её типа реал прога работает но ничего мне не выводит!