П Р О Ц Е Д У Р А  "psimin"

    Машинная процедура psimin служит для получения меньшего числа из
    заданного списка чисел.

 Формат обращения:
                 <psimin w1{wn}*>
 Результат замены:
                 w3 (w3 = min(w1,...,wn) )