Программирование на Паскале: Извлечение корня