Описать функцию Stepen (x,n) от вещественного x и целого n, вычисляющую (посредством умножения) величину xn

program variant;
uses crt;
var b,a: real;
k: integer;
function Stepen (x:real;n:integer):real;
var
i: longint;
xn: real;
begin
xn:=1;
for i:= 1 to n do
begin
xn:= xn*x;
end;
Stepen:= xn;
end;
begin
writeln('Введите a,k ');
readln(a,k);
b:=Stepen(2.7,k)+(a+1)-5;
write('b=',b:4:2);
end.

program variant;
 
uses
  crt;
 
var
  b, a: real;
  k: integer;
  
 ///Функция возвращает x в степени n (x - вещественное, n - целое)
function Stepen(x: real; n: integer): real;
var
  i: longint;
  xn: real;
begin
  xn := 1; //начальное значение степеня
  for i := 1 to n do //для всех i от 1 до n
  begin
    xn := xn * x; //предыдущее значение степеня умножаем на x
  end;
  Stepen := xn; //результат вычисления функции
end;
 
begin
  writeln('Введите a,k ');
  readln(a, k); //вводим a и k
 //вычисляем результат выражения, вызывая для этого функцию Stepen(x, n)
  b := Stepen(2.7, k) + (a + 1) - 5; 
  write('b = ', b:4:2); //выводим результат
end.