Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
# modula3/factorial.m3
MODULE Factorial;
IMPORT IO;
VAR n, fact, i: INTEGER;
BEGIN
n := 5; fact := 1;
FOR i := 1 TO n DO
fact := fact * i;
END;
IO.Put(fact);
IO.PutChar('\n');
END Factorial.Coding works best on desktop or with an external keyboard.