Вычислить сумму ряда с точностью Е - Free Pascal (670)

Формулировка задачи:

привет! Ребят помогите с прогой! Вычислить сумму ряда с точностью Е, общий член которого An=(-2)^n/n!

Решение задачи: «Вычислить сумму ряда с точностью Е»

Листинг программы

var e, a, s: double;
    n: integer;
begin
  repeat
    write('е > 0;  e = ');
    readln(e)
  until e > 0;
  a := -2;
  s := a;
  n := 1;
  while abs(a) > e do
    begin
      inc(n);
      a := a * -2 / n;
      s := s + a
    end;
  write('s = ', s);
  readln
end.

Объяснение кода листинга программы

Переменные e, a, s типа double и переменная n типа integer объявлены.
В цикле repeat-until пользователю предлагается ввести значение переменной e больше нуля.
Значение переменной a устанавливается равным -2, а значение переменной s устанавливается равным a.
Значение переменной n устанавливается равным 1.
В цикле while abs(a) > e выполняется следующее: 5.1. Увеличивается значение переменной n. 5.2. Значение переменной a умножается на -2 и делится на n. 5.3. Значение переменной s увеличивается на a.
Выводится значение переменной s.
Программа ожидает нажатия клавиши для завершения работы.