このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/7
#  [1] 授業単元:プログラミング 
#  [2] 問題文 
#  ・キーボードから入力した整数値が3の倍数かどうかを表示するプログラム 

キーボードから入力した整数値が3の倍数かどうかを表示する :-
        キーボードから入力した整数値(_整数),
        Mod is _整数 mod 3,
        '3の倍数かどうか'(_整数,Mod).

'3の倍数かどうか'(_整数,0) :-
        write_formatted('入力された %t は3の倍数です\n',[_整数]),!.
'3の倍数かどうか'(_整数,_) :-
        write_formatted('入力された %t は3の倍数ではありません\n',[_整数]),!.

キーボードから入力した整数値(_整数) :-
        write('整数を入力してください : '),
        get_line(Line),
        キーボードから入力した整数値診断(Line,_整数),!.
キーボードから入力した整数値(_整数) :- キーボードから入力した整数値(_整数).

キーボードから入力した整数値診断(Line,_整数) :-
        atom_to_term(Line,_整数,_),
        integer(_整数),!.
キーボードから入力した整数値診断(Line,_整数) :-
        write_formatted('入力された %t からは整数は得られません。再入力をお願いします。\n',[Line]),
        fail.