Программа на Python:

Кстати, если я правильно понял, то 100 должно входить в те числа, если же нет, поменяйте местами "if x == 100: break" и "a.append(x)"

a = []

k = 0

while True:

   k += 1

   x = int(input())

   a.append(x)

   if x == 100: break

s_1, s_2, s_3 = 0, 0, 1

for i in range(k):

   if a[i] % 2 == 0:

       s_1 += 1

   if a[i] < 0:

       s_2 += a[i]

   if 5 <= a[i] <= 15:

       s_3 *= a[i]

print('1. Кол-во чётных: ', s_1)

print('2. Сумма отриц.: ', s_2)

print('3. Произв. ∈ [5;15]: ', s_3)

Программа на PascalABC.NET:

Тоже самое, если я не правильно понял, поменять "if x = 100 then break" и "a[k] := x;"

var k, x, s_1, s_2, s_3, i: integer;

   a: array[1..100000] of integer;

begin

k := 0;

while True do begin

k += 1;

read(x);

a[k] := x;

if x = 100 then break

end;

s_1 := 0;

s_2 := 0;

s_3 := 1;

for i:=1 to k do begin

if a[i] mod 2 = 0 then s_1 := s_1 + 1;

if a[i] < 0 then s_2 := s_2 + a[i];

if (5 <= a[i]) and (a[i] <= 15) then s_3 := s_3 * a[i];

end;

writeln('1. Кол-во чётных: ', s_1);

writeln('2. Сумма отриц.: ', s_2);

writeln('3. Произв. ∈ [5;15]: ', s_3);

end.