как возвести в Паскале выражение в произвольную степень? например в четвертую.

в четвертую это можно квадрат возвесть в квадрат и так со степенями двойки

Вот на с++ код, на паскаль сам додумывай, я таких раритетов не знаю
double x; //это само возводимое число
int y; // сюда помещаем желаемую степень
double mul=1;// тут будет начальное значение итоговой переменной
for(int i=0; i < y;i++)
{
mul = mul + x;
}

cout << mul << endl; // тут вывод результата, прошу прощения, редактор код режет нещадно, приходится постоянно ответ редактировать.
для больших возможностей проведи проверку значения y, и если оно больше либо равно 0, то по моей схеме, а если меньше нуля, то чуток измени параметры в цикле for, и в зависимости от этого два разных цикла, либо для положительных, либо для отрицательных.
Для дробного показателя степени, например, 1 / 3, надо хорошенько мозгом раскинуть, чтоб написать функцию. Уверен, она займет не очень много времени.
Идею на с++ я вам подал. Перепишите на аналогичную функцию на паскале.

Никак.
Потому что только дебилы пытаются возводить в степень ВЫРАЖЕНИЯ, в то время как нормальные здоровые и адекватные люди возводят в степень ЗНАЧЕНИЯ выражений.

Лучше всего написать процедуру, которая позволит из числа и переменной, обозначающей степень, умножать число на само себя до достижения нужной степени.
А степень может генерироваться случайно или в зависимости от условий задачи.

Все очень просто X^Y = exp(ln(X) * Y) . Удачи!!!

я бы сделал так: x:=x*x*x*x