3 задание...хэлп ми плиз

Question

3 задание...хэлп ми плиз

---

Answer 1

Var n,p,i: integer;
begin
p:=1;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
p:=p*i;
end;
writeln(p);
end.

Comments

а можно еще графически на бумаге и алгоритм и блок-схему?

---

если не сложно