Подчитать сумму квадратов чисел с нечётными индексами - Pascal

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

дана последовательность числа ai (i=1, 2,...N) Подчитать сумму квадратов чисел с нечётными индексами и сумму кубов чисел с чётными индексами

Решение задачи: «Подчитать сумму квадратов чисел с нечётными индексами»

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

program PowersAndIndexes;
 
const
  N = 5;
 
var
  i: Word;
  SumSquares, SumCubes : LongWord;
  A : array [1..N] of Integer;
 
begin
  //генерируем последовательность
  randomize;
  for i := 1 to N do
    begin
      A[i] := random(100);
      write( A[i], ' ' );
    end;
  writeln;
  
  //находим суммы квадратов и кубов с учётом чётности индекса элемента
  SumSquares := 0;
  SumCubes := 0;
  for i := 1 to N do
    if (i mod 2 = 0)
    then SumCubes := SumCubes + floor(power(A[i], 3))
    else SumSquares := SumSquares + floor(power(A[i], 2));
  
  //выводим найденные суммы:
  writeln ('Squares: ', SumSquares);
  writeln ('Cubes: ', SumCubes);
  
  readln;
end.

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

N = 5 - Определение константы, обозначающей количество элементов массива.
i - Переменная-счётчик для цикла.
SumSquares, SumCubes - Переменные для хранения суммы квадратов и кубов чисел соответственно.
A - Массив из 5 целочисленных элементов.
Генерация последовательности случайных чисел и их вывод на экран.
Вычисление сумм квадратов и кубов чисел, учитывая чётность индекса элемента.
Вывод найденных сумм квадратов и кубов.
Ожидание ввода пользователя для завершения программы. Примечание: Предполагаю, что этот код написан на языке программирования Pascal.