Возвести заданное вещественное число α в целую степень k

function Step(a, k: integer): integer;
 
var
  i, l: byte;
begin
  l := a;
  if k = 0
    then Step := 1  
    else  
  if k = 1
    then Step := a  
  else  
    for i := 2 to k Do    
    begin
      a := a * l;
      Step := a;
    end;  
end;

function Step(x: real; n: integer): real:=(n = 1 ? x : power(x, n mod 2) * power(power(x, n div 2), 2));
begin
  write(Step(ReadlnReal('a ='), ReadlnInteger('k =')));
end.

function Step(a: real; k: integer): real;
 
var
  i: byte;
  l: real;
begin
  l := a;
  if k = 0
    then Step := 1  
    else  
  if k = 1
    then Step := a  
  else  
    for i := 2 to k Do    
    begin
      a := a * l;
      Step := a;
    end;  
end;

function Step(a: real; k: integer): real;
 
var
  i: byte;
  l: real;
begin
  l := a;
  if k = 0
    then Step := 1  
    else  
  if k = 1
    then Step := a  
  else  
    for i := 2 to k Do    
    begin
      a := a * l;
      Step := a;
    end;  
end;
begin
  write(Step(ReadlnReal('Введите число: '), ReadlnInteger('Введите степень, в которую возводится число: ')));
end.