Дан числовой ряд и малая величина E=10^-3. C точностью E найти сумму ряда, общий член которого задан формулой: An=1/2^n+1/3^n — Pascal(Паскаль)

var
  n : integer;
  e, sum, an : double;
begin
  e := 0.001;
  n := 1;
  an := 1.0 / exp(ln(2) * n) + 1.0 /  exp(ln(3) * n);
  sum := an;
  while (an > e) do
  begin
    n := n + 1;
    an := 1.0 / exp(ln(2) * n) + 1.0 /  exp(ln(3) * n);
    sum := sum + an;
  end;
  write('sum = ', sum:2:6);
end.