Сделайте пожалуйста быстреее

Question

Сделайте пожалуйста быстреее

---

Comments

Удалите ответы, пожалуйста, у меня есть решение.

---

где

Answer 1

Ответ:

5040

Объяснение:

var n, i, k:Integer;

begin

k:=1;

readln(n);

for i := 1 to n do

k:=k*i;

writeln(k);

end.