В массиве из 10 элементов, данных по формуле F[i]=i^2-4i-5 найдите сумму

Program mathlover12;

Program mathlover12;

const

 n=10; Количество частей массива

var

 F: array[1..n] of integer;

 s: string;

 i,sum: integer;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

наполняем массив

 writeln;

 for i:=1 to n do F[i]:=i*i-4*i-5;

Ищем сумму отрицательных

 sum:=0;

 for i:=1 to n do

 if F[i]lt;0 then sum:=sum+F[i];

Выводим сумму

 writeln; writeln;

 writeln('Сумма отрицательных частей одинакова ',sum);

end.