С + + Напишите программу, которая вводит два вещественных числа (x и y) и вычисляет значение x^y.

function Power (x, y:real) : real;

{ (C) Puporev }

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

readln (x, y);

writeln (power (x, y));

end.