Дано n = 8. Вычислить n-ое значение переменной z.

Если я правильно понял условие, то программа ниже :

program bipovskiychertilo;var z,c,n:real;beginn:=8;write('Введите нужное z : ');read(z);c:=exp(ln(z)*n);writeln('Ответ: ',c);end.