このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/265
#  [1] 授業単元:プログラミング演習  
#  問題1 キーボードから4つの整数を入力し、その中の最大値を表示するプログラムを作成しなさい。 ただし、このプログラムは下記の2つの種類の処理を、1つのプログラム内で行うように作成してください。 
#  <実行結果>  
#  配列を使わない処理です  
#  num1 = 25  
#  num2 = 84  
#  num3 = 12  
#  num4 = 68  
#  最大値は84です。  
#  配列を使用した処理です  
#  num1 = 25  
#  num2 = 84  
#  num3 = 12  
#  num4 = 68  
#  最大値は84です。  
#    
# 
# 

'キーボードから4つの整数を入力し、その中の最大値を表示する' :-
        write('ならびを使わない処理です\n'),
        write('num1 = '),get_integer(_整数1),
        write('num2 = '),get_integer(_整数2),
        write('num3 = '),get_integer(_整数3),
        write('num4 = '),get_integer(_整数4),
        (    _整数1 >= _整数2,_整数1 = X1;
             _整数1 < _整数2,_整数2 = X1),
        (    _整数3 >= _整数4,_整数3 = X2;
             _整数3 < _整数4,_整数4 = X2),
        (    X1 >= X2,_最大値1 = X1;
             X1 < X2,_最大値1 = X2),
        write_formatted('最大値は%tです\n',[_最大値1]),
        write('ならびを使用した処理です\n'),
        write('num1 = %t\nnum2 = %t\nnum3 = %t\nnum4 = %t\n',[_整数1,_整数2,_整数3,_整数4]),
        append(_,[_最大値2|_],[_整数1,_整数2,_整数3,_整数4]),
        _最大値2 >= _整数1,
        _最大値2 >= _整数2,
        _最大値2 >= _整数3,
        _最大値2 >= _整数4,
        write_formatted('最大値は%tです\n',[_最大値2]).