Найти сумму факториалов - Turbo Pascal

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

Язык программирования Паскаль. Составить программу вычисления S=1!+2!+…+n!

Решение задачи: «Найти сумму факториалов»

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

uses crt;
var s,f,i,n:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
s:=0;f:=1;
for i:=1 to n do
  begin
   f:=f*i;
   s:=s+f;
  end;
 
  write('S = ',s);
readkey;
END.

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

В начале кода подключается библиотека crt, которая используется для работы с вводом/выводом в Turbo Pascal.
Затем объявляются переменные s, f и i типа longint, которые будут использоваться для хранения суммы факториалов чисел от 1 до n.
Далее идет команда clrscr, которая очищает экран.
Затем начинается цикл repeat-until, который будет выполняться до тех пор, пока n (переменная, которую мы читаем с экрана) больше 0.
Внутри цикла переменная s инициализируется значением 0, а переменная f инициализируется значением 1.
Затем следует цикл for, который выполняется от 1 до n. На каждой итерации переменная f умножается на текущее значение i, а переменная s увеличивается на сумму произведения f и i.
После завершения цикла for выводится сообщение 'S = ', за которым следует значение переменной s.
Наконец, с помощью команды readkey происходит ожидание нажатия клавиши перед завершением программы.