Хээээлп На Паскале Задана последовательность из N вещественных чисел. Вычислит

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.