Рекурсия \\ вывести числа от н до 1000 кратные 3

[Veronika999]

ЗАДАНИЕ: Написать программу, печатающую числа, кратные трем, начиная с заданного n и до 1000.
Вот что уже смогла придумать, дальше не знаю... что делать, помогите....

predicates
nondeterm write_number(integer)

clauses
write_number(N) :-  N< 1000 ,
N mod 3 =0,
write(" ", N),	nl, 
write_number(N +1).

write_number(N) :-  N< 1000 ,
write_number(N+1).

goal
write("начало:"),
nl,nl,
readint(N),
write_number(N),
nl,nl,
write("конец").

->мы пишем на Visual Prolog 5.2