Tính xy (Với x, y là số thực).

Program X_LUYTHUA_Y;
Uses crt;
Var x,y,z:real;
Begin
Writeln(‘TINH X LUY THUA Y:’);
Writeln('----------------------------------');
Write('Nhap x = '); readln(x);
Write('nhap y = '); readln(y);
If x>=0 then
   Begin
         z:=exp(y*ln(x));
         Writeln('x ^ y = ',z:4:2);
   End
   Else
   Writeln('Khong tinh duoc do x la so am');
Readln;
End.