uses crt;
function Power(x,y:real):real;
begin
if x=0 then Power:=0
else if x>0 then Power:=exp(ln(x)*y)
else Power:=-exp(ln(abs(x))*y);
end;
var x,y:real;
begin
clrscr;
write('Число под корнем: ');readln(x);
write('Степень корня: ');readln(y);
write('Корень равен*: ',Power(x,1/y):0:3);
write(' или ');
write('В не сокращенном виде: ',power(x,1/y):0:10);
readln
end.