В приложениях находятся два варианта решения.
1) Перебираем все числа от 1 до x и проверяем остаток от деления x на очередное число. Простой и понятный алгоритм.
2) Перебираем все числа от 1 до корня из x и проверяем остаток от деления. Если x делится на такое число d без остатка, мы выводим d и x/d. Работает быстрее, чем (1).
Паскаль АВС:
Program Vareeenka;
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите основание степени '); readln (x);
write('Введите показатель степени '); readln (y);
writeln('*** Вычисляю... ***');
writeln(power(x,y):8:2); ;
end.
Photomath вот это приложение