>>452 (>>449) 訂正
% Prolog

'入力された数字が偶数なら、trueを返す。それ以外ならfalse'(_診断) :-
　　get_integer(N),
　　'入力された数字が偶数なら、trueを返す。それ以外ならfalse'(N,_診断).

'入力された数字が偶数なら、trueを返す。それ以外ならfalse'(N,true) :- 0 is N mod 2,!.
'入力された数字が偶数なら、trueを返す。それ以外ならfalse'(N,false).