В паскале не предусмотрена операция возведения в степень. Составте программу для расчета степени n вещественного числа a (n — натуральное число).
A^n = exp(ln(a) * n) или S:=1; for i:=1 to N do S:=S*x;