└── Raising a number to any power


/Raising a number to any power:
--------------------------------------------------------------------------------
 1 | program calc_stepen;
 2 | 
 3 | var
 4 |   a, b, h, i: integer;
 5 |   c: real;
 6 | 
 7 | begin
 8 |   b := 1;
 9 |   readln( a, h);
10 |   for i := 1 to abs(h) do
11 |     b := b * a;
12 |   if h < 0 then
13 |     c := 1 / b
14 |   else
15 |     c := b;
16 | 
17 |   writeln( c:3:5 );
18 | 
19 | end.
20 | 


--------------------------------------------------------------------------------