Даны 2 числа. написать процедуру или функцию возведения числа в степень. возвести наибольшее число в степень наименьшего

Паскаль.   uses crt; var a,n:integer; begin clrscr; write('Введите число: '); read(a); write('Введите еще одно число: '); read(n); if a>n then write(a,'^',n,'=',exp(ln(a)*n)) else write(n,'^',a,'=',exp(ln(n)*a)); end.   {P.s. Рабочая, если хотя бы одно из чисел положительное}