Chương trình Tính x lũy thừa y

Program X_Luy_Thua_Y;
Uses crt;
Var x,y,z:real;
Begin
Writeln(‘TINH X LUY THUA Y:’);
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.