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

    Машинная процедура psifloo служит для получения наибольшего целого не
    превосходящего данное число. Результат выдается в формате целого числа.

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