写一个简单的Turbo Prolog程序，注意各段以其相应的关键字 constants、domains、database、predicates、goal 和 clauses 开头加以标识，如果有用到就加，没用到可以不加

以下是一个简单的Turbo Prolog程序，用于计算斐波那契数列的第N项：

% constants
N = 10.

% predicates
fibonacci(N, F) :- N =< 1, F is N.
fibonacci(N, F) :- N > 1, N1 is N - 1, N2 is N - 2, fibonacci(N1, F1), fibonacci(N2, F2), F is F1 + F2.

% goal
?- fibonacci(N, F), write(F).

在这个程序中，我们定义了一个常量N，表示要计算斐波那契数列的第N项；然后定义了一个predicate fibonacci，用于递归计算斐波那契数列的第N项；最后通过goal来执行程序，计算出斐波那契数列的第N项并将结果输出到控制台上。

需要注意的是，Turbo Prolog中的predicate可以看作是函数，用于进行一定的计算或逻辑判断。在这个程序中，我们通过递归的方式来计算斐波那契数列的第N项。