Вычисление суммы факториалов - Pascal ABC (14826)

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

Составить программу для вычисления суммы: 2!+4!+6!+....+n! (n<=16, n - четное)

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

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

Program Task5;
 
Var f,s,k : real;
 
Begin
    s:=0;
    k:=1;
    f:=1;
    while (k<=16) Do Begin
        f:=f*k*(k+1);
        s:=s+f;
        k:=k+2;
    End;
    writeln(s);
End.

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

В программе объявлены три переменные типа real: f, s, k.
Переменная s инициализируется значением 0.
Переменная k инициализируется значением 1.
Переменная f инициализируется значением 1.
Запускается цикл while, условием которого является k <= 16.
Внутри цикла значение переменной f умножается на значение k, затем на (k+1).
Результат умножения добавляется к переменной s.
Значение переменной k увеличивается на 2.
Цикл while повторяется, пока значение переменной k не станет больше или равно 17.
По завершении цикла значение переменной s выводится на экран.