Lập trình Pascal: Tính x mũ y và x mũ n

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.

Program TINH_X_LUY_THUA_N;
Uses crt;
Var i,n,x:integer;
lt:real;
Begin
   Writeln(' TINH X LUY THUA Y:');
   Writeln('----------------------------------');
   Write('Nhap x ='); readln(x);
   Write('Nhap n ='); readln(n);
   lt:=1;
   For i:=1 to n do
     lt:=lt*x;
    Writeln(x, '^',n,' = ',lt:4:2);
    Readln;
End.