Код бин поиска(Паскаль)

Нажмите на ссылку http://informatics.mccme.ru/mod/book/view.php?id=475, чтобы открыть ресурс.