Дан массив чисел E = (e1,e2,...,en) и число F. Увеличить все отрицательные элементы массива Е на F. Решить в паскале, расписать формулу

Const F=5;
const N=10;
var
i:integer;
e:array[1..N] of integer;
begin
randomize;
writeln(Изначальный массив: );
for i:=1 to N do e[i]:=-30+random(60);
for i:=1 to N do write(e[i], );
writeln;
writeln(Измененный массив: );
for i:=1 to N do
if e[i]lt;0 then e[i]:=e[i]+F;
for i:=1 to N do write(e[i], );
end.