Решите задачу!!!паскаль Пожалуйста

Question

Решите задачу!!!паскаль Пожалуйста

---

Answer 1

var

   d : array of integer := (-1,0,12,-2,5,-2,3,4,0,-8);

   s : integer;

begin

   for var i := 1 to d.Length-1 do if d[i] < 3 then s += d[i];

   writeln(s);

end.