В массиве из 12 частей, данных по формуле F[i]=i^2-5i-14Найдите сумму положительных

1) Заполним массив по формуле из условия

2) Пройдёмся по массиву и посчитаем сумму положительных значений.

Всё можно сделать в одном цикле.

Код

var

 f: array[1..12] of integer;

 i, ans: integer;

begin

 ans := 0;

 for i := 1 to 12 do

 begin

   f[i] := i * i - 5 * i - 14;

   if f[i] gt; 0 then ans := ans + f[i];

 end;

 writeln(ans);

end.