Дано 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.