FUNCTION Fib(i: integer): integer;
BEGIN
    IF i>1
        THEN result:= Fib(i-1) + Fib(i-2);
        ELSE result:= 1;
END;