Здача на точность вычислений Опции

[Santrex]

Извинетите что беспокою еще раз но вы не моглибы посмотреть этот код.Я писал одну программу и незнаю правильно ли она получилось по следующему условию:
Заданы числовой ряд и некоторое чичло e(точность вычислений).Вычеслить сумму тех челенов ряда,модуль которых больше или равен e.Обищй челен ряда имеете вид:
a=10 в степени n деленная на n!, где n! это фактариал.
Проверти на сколько правильно задание.
Если код не совсем правелен просьба подправить с использованием ограничений в этом разделе:
http://forum.pascal.dax.ru/forum/index.php?showtopic=3493

Код

program z_2;
uses crt;
var
  e : real;{tochnost vichisleny}
  a : real;{tekuchiy chlen ryada}
  s : real;{summa teh chlenov ryada, modul kotorih bolshe ili raven
            tochnosti vichisleniy e}
  n : integer;{nomer chlena ryada}
begin
  clrscr;
  write('vvedite tochnost vichisleniy e=');

  readln(e);
  a:=1;
  n:=1;
  s:=0;
  while (abs (a)>=e) do
                begin

                     a:=a*10/n;
                     writeln(a:8:6);
                     s:=s+a;
                     n:=n+1;
                end;
  writeln;
  write('summa teh chlenov rjada, modul kotorih ');
  writeln('bolshe ili raven tochnosti vichisleniy:');
  writeln;
  writeln(s:8:6);
  readln;
end.

[klem4]

Правильно! :D
серьёзно
Это же очень легко проверить
n=1; a=10/1
n=2; a=(10/1)*(10/2)=10^2/2!;
n=3;a=(10^2/2!)*10/3=(10^3)/1*2*3=10^3/3!;
...