mirror of
https://codeberg.org/ProgramSnail/truffle-lama.git
synced 2026-01-07 20:25:03 +00:00
14 lines
96 B
Text
14 lines
96 B
Text
|
var s, n;
|
||
|
|
|
||
|
|
n := read ();
|
||
|
|
|
||
|
|
s := 1;
|
||
|
|
|
||
|
|
do
|
||
|
|
|
||
|
|
s := s * n;
|
||
|
|
n := n - 1
|
||
|
|
|
||
|
|
while n != 0 od;
|
||
|
|
|
||
|
|
write (s)
|