mirror of
https://codeberg.org/ProgramSnail/truffle-lama.git
synced 2025-12-31 19:18:17 +00:00
14 lines
No EOL
96 B
Text
14 lines
No EOL
96 B
Text
var s, n;
|
|
|
|
n := read ();
|
|
|
|
s := 1;
|
|
|
|
do
|
|
|
|
s := s * n;
|
|
n := n - 1
|
|
|
|
while n != 0 od;
|
|
|
|
write (s) |