Помогите пожалуйста!! Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число e. Найти сумму тех членов

Var i, n: integer; a, s, e: real; function Factorial(n: integer): longint; var f, i: longint; begin f := 1; for i := 1 to n do f := f * i; Factorial := f; end; function Power(x: real; n: integer): real; var i: integer; p: real; begin p := 1; for i := 1 to n do p := p * x; Power := p; end; begin readln(e, n); s := 0; for i := 1 to n do begin a := Factorial(n) / Power(n, n); if abs(a) < e then s := s + a; end; writeln(s); end.