Написать блок-схемы для программы…

var i, j,fact, n: integer; summ: real; begin write ('n='); readln (n); summ: =0; for i: =1 to n do begin fact: =1; for j: =2 to i do fact: =fact*j; Summ: =Summ+1 / fact; end; writeln ('Summ=', Summ); end.