Мы уважаем авторское право каждого человека. И если данная страница:
http://mybiblioteka.su/tom3/2-42502.html - Dim a() As Double, i As Integer, n As Integer, kol As Integer, summ As Double
нарушает ваши права, то вы можете ее удалить самостоятельно.
Для этого в следующее поле введите с маленькой буквы слово "нарушение". А в патчи введите код, который сгенерирован(Внимание! Регистр букв важен!!!). Если все правильно, то страница будет удалена ваши.