Question

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

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.