Задача Arrays - PascalABC.NET

Формулировка задачи:

Добрый день , помогите с задачей . Условие : Дано целое число N (>0); Сформировать и вывести целочисленный массив размера N , содержащий степени двойки от первой до N-й : 2,4 ,8 ,16 ,32 ,64,128 , если N=7 .

                    Листинг программы
                
 
                        
                          
                    
uses crt;
const 
N=7;
var
a: array[1..n] of integer;
i: integer;
 
 begin
 
 for i:=1 to n do
 begin
 
a[i]:=i;
a[i]:=sqr(i);
 writeln(a[i]);
 end;
 end.

Решение задачи: «Задача Arrays»

Листинг программы

const N=7;
var a:array[1..n] of integer;
    i: integer;
begin
for i:=1 to n do
 begin
  if i=1 then a[i]:=2
  else a[i]:=a[i-1]*2;
  write(a[i],' ');
 end;
end.

Объяснение кода листинга программы

Объявляется константа N типа integer со значением 7.
Объявляется массив a типа array[1..n] of integer с размером N.
Объявляется переменная i типа integer.
Запускается цикл for i от 1 до N.
В каждой итерации цикла выполняется:
- Если i равно 1, то a[i] присваивается значение 2.
- Иначе, a[i] присваивается значение a[i-1]*2.
- Выводится значение a[i] с пробелом после него.
Конец цикла.
Конец программы.