На паскале задана последовательность из n вещественных чисел. вычислить значение функции : корень n-ой степени из ix1*x2*x3**xni

Var x,p,rez:real;
    n: integer;
begin
  p:=1;
  write('числа через пробел (завершение ввода - 0): ');  read(x);
  while x<>0 do
  begin
    p:=p*abs(x);
    read(x);
  end;
  write('N = ');  readln(n);
  rez:=exp((1/n)*ln(p));
  writeln('корень ',N,' -ой степени из ',p,' = ',rez);
end.