>>71
% Prolog

入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，それらの和を求める :-
　　催促付き整数入力('データの数は?',N),
　　findsum(X,(for(1,M,N),催促付き整数入力('%t番目のデータを入力してください:',[M],X)),_和),
　　write_formatted('和=%t\n',[_和]).