Поменять на for, как?

[BackSlash]

Задача:1. Дан первый член геометрической прогрессии и ее знаменатель. Сформировать массив из первых k членов этой прогрессии.
Код:

uses crt;
type mass=array[1..100] of real;
var q,{Znamenatel' geometri4eskoy progressii}
    b1,{Pervuy 4len}
    k, {ol-vo 4lenov}
    n,i: integer;
var a:mass;
begin
 clrscr;
 writeln ('Enter b1,q,k');
 readln (b1,q,k);
 n:=1;i:=1;
 while i<k do
 begin
      for i:=1 to k do
          begin
          a[i]:=b1*(exp((n-1)*ln(q)));
          n:=n+1;
          end;
 end;

 for i:=1 to k do writeln (a[i]:30:0,' ');
 end.

Преподавателя не устраивает вот это (b1*(exp((n-1)*ln(q))) (это b1*(q^(n-1))
просит поменять на цикл for;
А я не могу понять как туда запихать for чтобы вичислял q^(n-1)
Need Help!
Функции не предлагать =)

Проще говоря нужно чтобы степень вычислялась не этим выражением (exp((n-1)*ln(q))), а циклом for

[Niro]

 for i:=1 to k do
          begin
            rez:=1; 
            for zy:=1 to n-1 do
                  rez:=rez*q;
          a[i]:=b1*rez;
          n:=n+1;
          end;

[interxor]

кажется все проще:

uses crt;
type mass=array[1..100] of real;
var q,{Znamenatel' geometri4eskoy progressii}
    b1,{Pervuy 4len}
    k, {ol-vo 4lenov}
    n,i: integer;
var a:mass;
begin
 clrscr;
 writeln ('Enter b1,q,k');
 readln (b1,q,k);
 n:=1;i:=1;
 a[1]=b1;
      for i:=2 to k do
          begin
          a[i]:=a[i-1]*q;
          end;
 for i:=1 to k do writeln (a[i]:30:0,' ');
 end.

[BackSlash]

Хитро,хитро, спасибо, разобрался)