цепная формула

[kiker777]

Люди помогите, вот условие задачи - (Составить программу, которая вычисляет с точностью 8 знаков после запятой значение R по следующей "цепной" формуле:R = sqrt(2+sqrt(2+sqrt(2+sqrt(...)))). Вывести на печать все конечные приближения. Результат вычисления сравнить со значением 1.)
Мне кажется что я замутил неправильно
Вот мое решение:

Program Four;
var R,R1,d,e:real;
begin
e:=1.00000001;
r1:=sqrt(2);
r:=d;
repeat
r:=d;
r1:=sqrt(r1);
writeln('r=',r1);
until abs(r-r1) <=e;
writeln('r=',r1:7:8);
end.