Вычислить числовую последовательность при условии, n - натуральное, х - действительное - Pascal

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

Доброго времени суток, уважаемые программисты. Попогите пожалуйста написать программу на паскале. Дано: Натуральное число "n" и действительное число "x". Вычислить:

Решение задачи: «Вычислить числовую последовательность при условии, n - натуральное, х - действительное»

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

Var n,i:integer;
x,s:double;
function fact(m:integer):integer;
begin
if m>0 then
fact:=m*fact(m-1);
else fact:=1

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

В коде объявлены четыре переменные: n, i, x и s.
Переменная n имеет тип integer (целое число), а переменные i, x и s имеют тип double (число с плавающей точкой).
Функция fact(m: integer) определена, но не объявлена.
Код не содержит операций присваивания для переменных n, i, x и s.
В функции fact(m: integer) используется рекурсия для вычисления факториала числа m.
Если m больше 0, то функция fact(m: integer) вызывает саму себя с аргументом m-1 и умножает результат на m.
Если m меньше или равно 0, то функция fact(m: integer) возвращает 1.
Код не содержит вызова функции fact(m: integer).
В коде нет операций ввода-вывода.
Код не содержит циклов.
Код не содержит условий.
Код не содержит операций присваивания, а значит не выполняет никаких вычислений.
Код не содержит ошибок синтаксиса.
Код не содержит комментариев.
Код не содержит операций ввода-вывода, а значит не взаимодействует с пользователем или с внешними ресурсами.
Код не содержит функций, кроме функции fact(m: integer).
Код не содержит операторов управления, таких как if, case или for.
Код не содержит ключевых слов, таких как begin или end.
Код не содержит именованных констант или типов данных.
Код не содержит массивов или записей.