Составьте программу, которая запрашивает значения одномерного числового массива А, состоящего из 10 элементов - Pascal ABC

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

Составьте программу, которая запрашивает значения одномерного числового массива А, состоящего из 10 элементов, формирует и выводит на экран в строку данный массив. Найти произведение отрицательных элементов массива; количество элементов, стоящих на нечётных местах; сумму элементов, кратных 4.

Составила такую программу, но если вручную подсчитывать, то не подходит она...

                    Листинг программы
                
 
                        
                          
                    
Program mas2;
var A:array[1..10] of integer;
i,p,k,s: integer;
begin
writeln('Массив А:');
p:=1;
k:=0;
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i]<0 then p:=p*A[i];
if i mod 2=1 then k:=k+1;
if A[i] mod 4=0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Произведение отрицательных элементов массива = ',p);
writeln('Количество элементов, стоящих на нечётных местах = ',k);
writeln('Сумма элементов, кратных 4 = ',s);
end.

Решение задачи: «Составьте программу, которая запрашивает значения одномерного числового массива А, состоящего из 10 элементов»

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

s := s + a[i]

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

Создается переменная s, которая инициализируется значением 0.
Запрашивается значение i от пользователя.
Значение i присваивается переменной i.
Вычисляется сумма s + a[i].
Значение суммы s + a[i] присваивается переменной s.