Найти сумму ряда с точностью Е

uses crt;
var a,an,a1,a2,e:real;
begin
repeat
write('Введите точность, малое число больше 0 e=');
read(e);
until e>0;
if e>=1/2+1/3 then an:=1/2+1/3
else
 begin
  a:=0;
  an:=1/2+1/3;
  a1:=1/2;
  a2:=1/3;
  while abs(an-a)>e do
   begin
    a:=an;
    a1:=a1/2;
    a2:=a2/3;
    an:=an+a1+a2;
   end;
 end;
write('Сумма=',a:0:5);
end.

 a1:=a1/2;
 a2:=a2/3;

uses crt;
var a,an,a1,a2,e:real;
begin
repeat
write('Введите точность, малое число больше 0 e=');
read(e);
until e>0;
if e>=1/2+1/3 then an:=1/2+1/3
else
 begin
  a:=1/2+1/3;
  a1:=1/2;
  a2:=1/3;
  an:=a1+a2;
  while an>e do
   begin
    a1:=a1/2;
    a2:=a2/3;
    an:=a1+a2;
    a:=a+an;
   end;
 end;
write('Сумма=',a:0:5);
end.