Дан числовой ряд и некоторое число е >0 . Ряд Аn=(10^n)/n! Найти сумму тех членов ряда, которые по модулю больше или равны е — Pascal(Паскаль)

var n,f,m:integer;
var e,s,a:real;
begin
repeat
write('Введите предел вычислений e=');
readln(e);
until e>0;
if e>=1 then s:=1
else
 begin
  a:=1;
  s:=0;
  n:=0;
  while a>e do
   begin
    n:=n+1;
    a:=a*10/n;
    s:=s+a;
   end;
 end;
write('S=',s:0:8);
end.