4. Сформировать целочисленный массив их 15 произвольных чисел. Подсчитать сумму и произведение элементов с нечетными индексами.

program arr; var    a: array[1..15] of integer;    count,count_odd,num,sum,mult: integer; begin   count := 1;   count_odd := 1;   num := 3;   sum := 0;   mult := 1;   while count <= 15 do     begin       a[count] := num;       count := count + 1;       num := num + 3;     end;   while count_odd <= 15 do     begin       sum := sum + a[count_odd];       mult := mult * a[count_odd];       count_odd := count_odd + 2;     end;   writeln('Массив из 15 элементов: 3, 6, 9, ..., 45');   writeln('Сумма элементов с нечетными индексами: ', sum);   writeln('Произведение элементов с нечетными индексами: ', mult); end.