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

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

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