Составить БЛОК-СХЕМУ подсчета N!=1*2*3*…*N

1.

program z;

var n,i:integer; s:real;

begin

writeln('Введите число n'); readln(n);

for i:=1 to n do

begin

s:= (n*(n+1))/2; end;

writeln(s);  

end.

2. program z2;

var s,i,n:integer;

begin

writeln('Введите число n '); readln (n);

s:=1;

for i:=1 to n do s:=s*i;

write(s); end.

Объяснение: