Вычислить сумму ряда s = 1! + 2! + ... + n! - Turbo Pascal

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

Вычислить: у = 1 !+ 2! + 3! +...+ n! (n>1 ).

Решение задачи: «Вычислить сумму ряда s = 1! + 2! + ... + n!»

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

var
  y, n, i, p: longint;
 
begin
  writeln('Введите число n');
  readln(n);
  if (n > 1) then
  begin
    y := 0;p := 1;
    for i := 1 to n do
    begin
      p := p * i;
      y := y + p;
    end;
    writeln('y = ', y);
  end
  else writeln('Неверный ввод');
end.

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

В начале объявляются переменные y, n, i и p типа longint.
Затем выводится сообщение «Введите число n», и считывается значение переменной n с помощью функции readln.
Если значение n больше 1, то инициализируются переменные y и p: y устанавливается в 0, а p в 1.
Далее идет цикл for, который выполняется от 1 до n. На каждой итерации значение переменной p умножается на текущее значение i, а переменная y увеличивается на полученную сумму.
После завершения цикла выводится значение переменной y.
Если значение n меньше или равно 1, то выводится сообщение «Неверный ввод».