Составить программу на нахождение суммы - Turbo Pascal

Нужно составить программу на нахождение суммы: 1 + x^1/1! + x^2/2! + x^3/3! + ... + x^n/n! Значения x, n вводятся с клавиатуры. При этом, 1<=n<=10.

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

t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=t*x/i;
  s:=s+t;
 end;

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

Переменная t инициализируется значением 1.
Переменная s инициализируется значением 1.
Запускается цикл for, который выполняется n раз, где n - это некоторое число.
Внутри цикла значение переменной t умножается на x (неизвестное значение) и делится на i (также неизвестное значение), полученное результат присваивается переменной t.
Значение переменной s увеличивается на значение переменной t.
После завершения цикла, значение переменной s будет содержать сумму всех значений переменной t, которые были вычислены внутри цикла.
Программа завершается и возвращает значение переменной s.