Написать программу, считывающую с клавиатуры число, возводящую в 15ю степень и выводящую результат на экран. вычисленные функции выполнить в отдельной функции или процедуре — Pascal(Паскаль)

uses crt;
 
function Ctepen (a : integer; s : longint) : Longint;
var i : integer;
 begin
  s := 1;
  for i := 1 to 15 do
   begin
    s := s * a;
   end;
  writeln('Chiclo = ',s);
 end;
 
var n,k,p : integer;
begin
 clrscr;
 write('Vvedite Chiclo n = ');
 readln(n);
 Ctepen(n,k);
 readln;
end.

USES CRT;
FUNCTION Power(Osnovanie:Real;  Stepen:Word) : Real;
VAR  a:Real;  i:Integer;
BEGIN
a:=1;
for i:=1 to Stepen do a:=a*Osnovanie;
  Power:=a
END;
var s,a:real;
BEGIN
Writeln('Якое Чсло?');
readln(a);
Writeln('Якая степень?');
readln(s);
        WriteLn(Power( a,s) );
END.