Нахождение степени для теста Ферма

[Ascar]

В дополнении к теме topic112063.html
дальнейший анализ ряда A003215

родилась такая программа

для заданного числа и заданного основания (взаимно простые) наити значение степени, для основания, чтобы выполнялась условие теста Ферма

програмку прилогаю
вверхние два поля вводим число и основание
нажимаем старт, получаем степень

Если есть интернет, выводится формула в стиле латекс

видео работы
https://www.youtube.com/watch?v=COQEkWDB7jQ



программа на яндексе
https://yadi.sk/d/QuCo8ZGswn4uB

если кто хочет поиграться скачивайте
для цифр до $10^{9}$ вполне комфортно находит показатели степеней по любому основанию
количество итераций алгоритма отображается в двух TMemo полях

если это интересно, сам алгоритм можно описать, но пока лень...