Программа для вычисления x степени не целого числа

var
    num, deg:integer;
    res: real;
    i: integer;
 
begin
 
    write ('Числа: '); readln (num);
    write ('Степень: '); readln (deg);
 
    res := 1;
 
    i := 0;
    while i < abs(deg) do begin
        res := res * num;
        i := i + 1
    end;
 
    if deg <= 0 then
        res := 1 / res;
 
    writeln (res:10:5);
 
readln
end.

Program stepen;
Var x,n:real;
     s:real;
begin
writeln (' Vvedite chislo X -');
Readln (x);
Writeln (' Vvedite ctepen chisla ');
Readln (n);
s:=exp(ln(x)*n);
Writeln (' OtBet = ',s:4:2);
Readln
end.

var
  num, deg, res : real;
begin 
    write('Числа: '); readln(num);
    write('Степень: '); readln(deg);
    //универсальный вариант
    //res := exp(deg * ln(num));
    //для Pascal ABC/ABC.NET можно так
    res := power(num, deg);
    writeln('Результат: ', res:0:3)
end..

Program stepen;
uses crt;
Var x,n:real;
     s:real;
     k:char;
begin
repeat
writeln (' Vvedite chislo X -');
Readln (x);
Writeln (' Vvedite ctepen chisla ');
Readln (n);
s:=exp(ln(x)*n);
Writeln (' OtBet = ',s:4:2);
Readln;
if keypressed then k:=readkey;
until k=#27;         //ïîêà íå íàæàòà esc
end.