Функция корня паскаль