Блок-схема факториала

[KartFool]

Что-то запутался с блок схемой, помогите написать программу и блок схему для 3го задания.
ссылка вот: http://cs5567.userapi.com/u6939438/d...lok-skhemy.pdf

если возможно до 1 ночи(

[Leshii]

Uses crt;
var
 n, i: integer;
 sum, Factorial, F: real;
begin
clrscr;
write('Vvedite n:');readln(n);
Factorial:=1;sum:=0;
for i:=1 to n do begin
    factorial:=factorial*i;
    F:=1+exp(i*ln(i))/Factorial;
    sum:=sum+F;
end;
writeln(sum:2:1);
readln;
end.

Ну поскольку до часа никто не отписал, то я тут тебе выкинул исходник. Собственно когда есть исходник то легче и писать блок схему, а блок схема простенькая. Если надо будут детали в составлении блок-схемы пиши в скайп.