mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-11 17:33:30 +00:00
14 lines
99 B
Text
14 lines
99 B
Text
|
var n, s;
|
||
|
|
|
||
|
|
n := read ();
|
||
|
|
|
||
|
|
s := 1;
|
||
|
|
|
||
|
|
repeat
|
||
|
|
|
||
|
|
s := s * n;
|
||
|
|
n := n - 1
|
||
|
|
|
||
|
|
until (n == 0);
|
||
|
|
|
||
|
|
write (s)
|