ЗАДАНИЕ: Написать программу, печатающую числа, кратные трем, начиная с заданного 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