Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем - Pascal ABC

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

Дан массив вещественных чисел Z(16). Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем

Решение задачи: «Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем»

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

uses crt;
const n=16;
var a:array[1..n] of real;
    i:integer;
    s1,s2:real;
begin
randomize;
writeln('Массив');
s1:=0;
s2:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:4:1);
  if i mod 2=0 then s1:=s1+a[i];
  if i mod 3=0 then s2:=s2+a[i];
 end;
writeln;
write('Разность сумм=',s1-s2:0:1);
end.

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

В начале кода используется библиотека crt, которая обеспечивает встроенную функцию randomize для генерации случайных чисел.
Константа n определяет размер массива a и устанавливается равной 16.
Переменная a объявляется как массив из 16 элементов типа real.
Переменная i используется для итерации по элементам массива.
Переменные s1 и s2 объявляются как переменные типа real для хранения суммы четных и нечетных элементов соответственно.
Функция randomize вызывается для генерации случайного числа.
Цикл for проходит по каждому элементу массива от 1 до n.
Внутри цикла каждый элемент массива a[i] присваивается значению 10*random, где random — случайно сгенерированное число.
Значение каждого элемента массива выводится на экран с помощью функции write.
Если i mod 2=0 (индекс элемента четный), то к переменной s1 добавляется значение a[i].
Если i mod 3=0 (индекс элемента кратен трем), то к переменной s2 добавляется значение a[i].
После завершения цикла выводится значение s1 и значение s2 с помощью функции write.
Наконец, вычисляется разность между s1 и s2 и выводится на экран с помощью оператора write.