Степень числа на Паскале

В Паскале нет специальной функции для вычисления степени числа. Поэтому все время приходится что-то придумывать. Один способ - вычислять степень числа по формуле через логарифм. А можно с помощью цикла. Здесь пример.

var
 num, deg: integer;
 res: real;
 i: byte;
 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.