ошибка в программе

[MKS23]

Для данных чисел N ,М вывести все элементы геометрической прогрессии {1,M,..,M^N}.

Program qq;
Uses crt;
var a: array[1..100] of  integer;
N, M ,i , j ,z :integer ;
begin
Clrscr;
Readln(N,M);
For i:=1 to N do begin
a[i]:=i;
Write (a[i], ’ ’);
end;
for i:=1 to N do begin 
z:=a[i];
for j:=1 to M do begin
if (j<M) then 
a[i]:=a[i]*z
end;
end;
writeln;
writeln;
for i:=1 to N do 
write (a[i], ’ ’);
readkey;
end.

[ViktorR]

А чему равна переменная z в этой части:

for j:=1 to M do begin
if (j<M) then
a[i]:=a[i]*z
end;

Переменные, размещаемые в секции данных Паскаль обнуляет.


Вроде бы так ...