Помогите пожалуста сделать задачу через ваил и репит

[Liver]

var n,i,a:integer;p:longint;
begin
write('BBOD a,n);
readln(a,n);p:=1;
for i:=1 to n do p:=p*a
writeln(a,n,'=',p);
end.
Задача:Дано натуральное число n и вещественное число а. Вычислить и напечатать без использования операции возведения в степень а^n.

[alex_fcsm]

var a,res:real;
    i,n:integer;
begin
writeln('Input a');
readln(a);
writeln('Input n');
readln(n);
i:=0;res:=1;if n<0 then begin
                         a:=1/a;
                         n:=-n;
                        end;
while i<n do
 begin
  inc(i);
  res:=res*a;
 end;
writeln(res:10:6);
end.

var a,res:real;
    i,n:integer;
begin
writeln('Input a');
readln(a);
writeln('Input n');
readln(n);
i:=0;res:=1;if n<0 then begin
                         a:=1/a;
                         n:=-n;
                        end;
repeat
  inc(i);
  res:=res*a;
until i=n;
writeln(res:10:6);
end.