RosettaCodeData/Task/Fibonacci-sequence/Modula-3/fibonacci-sequence-1.mod3

PROCEDURE Fib(n: INTEGER): INTEGER =
  BEGIN
    IF n < 2 THEN
      RETURN n;
    ELSE
      RETURN Fib(n-1) + Fib(n-2);
    END;
  END Fib;