program SumNegativeValues;

var
F: array[0..9] of Integer;
i, sum: Integer;

begin
sum := 0;

// заполняем массив значениями по формуле F[i] = i^2 - 4i - 5
for i := 0 to 9 do
begin
F[i] := ii - 4i - 5;
end;

// вычисляем сумму отрицательных значений
for i := 0 to 9 do
begin
if F[i] < 0 then
begin
sum := sum + F[i];
end;
end;

writeln('Сумма отрицательных значений в массиве F: ', sum);
end.