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

[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]

Не делайте одинаковых тем

[VoRTeX]

var
   a, k:real;
   n, i:word;
begin
     a:=2;n:=7;i:=1;
     k:=a;
     while n<>i do
     begin
          a:=a*k;
          inc(i);
     end;
     Writeln(a:1:2);
     Readln
end.