Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
# modula2/fib.m2
MODULE Fibonacci;
IMPORT InOut;
VAR a, b, tmp, i: INTEGER;
BEGIN
a := 0; b := 1;
FOR i := 1 TO 10 DO
InOut.WriteInt(a, 0);
InOut.WriteLn;
tmp := a + b;
a := b;
b := tmp;
END;
END Fibonacci.Coding works best on desktop or with an external keyboard.