прикладная математика

Program ELMpr_task4;
{
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░Task░#4░░file:ELMpr_task4.pas░==░ver.1.0.0░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░░░░░░Raising a number to the power of░░░░░░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░©░Grankin░V.I.░Group░І-14-1░Date:░18/09/14░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
}
var a,b:integer;
begin
writeln('Enter a & b'); read(a,b);
write(a,'^',b,'=',exp(ln(a)*b))
end.

program BF_zadacha4;
{********************************************}
{*   Laba#2 file: BF_zadacha4.pas ver 1.0   *}
{*           Возведение в степень           *}
{* (c) $.$.$. Group I-14-1 Date: 16.09.2014 *}
{********************************************}

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.