{* Вычисление выражения 3 *}

Unit Z_SUMMA12;
Interface
Implementation
Begin
 writeln('Найти 1!+2!+3!+...+N!. Где N данное число. (N! - факториал)');
End.

Program z_summa12;

Uses z_summa12.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  Number    : word;
  counterI  : word;
  Summa     : longint;
  Factorial : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите количество факториалов')   readln(Number);
  Summa := 0;
  Factorial := 1;
  For CounterI := 1 To Number Do {* Переменная CounterI увеличивается с 1 до Number *}
  Begin
    Factorial := Factorial * CounterI;
    Summa := Summa + Factorial;
  End;
  writeln('Сумма факториалов равна ', Summa);
  readln; {* Приостановка программы. Ожидание Enter *}
End.