написать программу для 2 и 3 Задания все есть на фото​

var

sum, i, n: integer;

arr: array[integer] of integers;

begin

readln(n);

sum := 0;

for i := 0 to n-1 do

begin

read(arr[i]);

if (arr[i] < 0) and (i mod 2 = 0) then sum := sum + arr[i]

end;

writeln(sum);

end.