Функция в PascalABC . Возникли трудности с описанием пределов.

Для наглядности можно написать так:

#include<iostream>
using namespace std;
int main()
{
    setlocale(LC_ALL,"Rus");
    int n;
    cout <<"Введите четырёхзначное число: ", cin >> n;
    int a = (n / 1000);
    int b = (n / 100) % 10;
    int c = (n / 10) % 10;
    int d = n % 10;
    n = a*1000+c*100+b*10+d;
    cout <<"После перестановки десятков и сотен: "<<n;
    return 0;
}

Но можно написать и так:

#include<iostream>
using namespace std;

int main()
{
    setlocale(LC_ALL,"Rus");
    int n;
    cout <<"Введите четырёхзначное число: ", cin >> n;
    cout <<"После перестановки десятков и сотен: "<<(n / 1000)<<(n / 10) % 10<<(n / 100) % 10<<n % 10;
    return 0;
}

Эта программа не делает ничего. Абсолютно. Зависает навсегда. В функции есть строка whle x<=x, что позволяет ей крутиться вечно. Я думаю, что то пошло не так, и раз уж так и произошло, то по сути, largest power - это степень не превышающего наименьшего числа, то есть, наибольшая степень, в которую можно возвести число, что бы итог был меньше, чем другое число. И тут нужно лишь заменить while x<=x на while p<=x и вот, она на тесте 100 3 даст ответ 4, так как 3*3*3*3=27*3<100, а вот 3*3*3*3*3>100. Но это лишь предположения. А так ваша программа выводит о введении числа, считывает их, ставит на вывод "n=" и уходит вдаль, ожидая, пока число будет больше самого себя