Посчитать факториал числа

Задача.
Посчитать сумму N! (N - факториал).

Блок-схема

Программа на Pascal

Program factorial;
Var i,n:integer;
 factorial:real;
Begin
 Writeln('Введите N');
 Readln(N);
 factorial:=1;
 for i:=1 to N do
  factorial:=factorial*i;
 Writeln('Факториал N чисел равен = ',factorial:0:2);
 Readln;
End.