Мы уважаем авторское право каждого человека. И если данная страница:
http://mybiblioteka.su/tom2/1-115005.html - While (i>1) And (A[i Div 2]<x) Do Begin
нарушает ваши права, то вы можете ее удалить самостоятельно.
Для этого в следующее поле введите с маленькой буквы слово "нарушение". А в патчи введите код, который сгенерирован(Внимание! Регистр букв важен!!!). Если все правильно, то страница будет удалена ваши.