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

    Машинная процедура psimgea служит для получения меньшего числа,
    удовлетворяющего неравенству: 2**w3 >= w1.

 Формат обращения:
                 <psimgea w1>
 Результат замены:
                  w3 ( 2**w3 >= w1)