Заполнить массив положительными и отрицательными числами на интервале от -40 до 40 и найти сумму отрицательных чисел,случайным элементом под элементом 25

var a:array[1..100] of integer; i,n,sum:integer;beginrandomize;n := 100; {Кол-во элементов в массиве}sum := 0;for i:=1 to n doa[i] := random(81) - 40;for i:=1 to n doif a[i] < 0 thensum := sum + a[i];writeln(sum);end.

Var a:array of integer; i,n,s:integer;Begin write('Введите длину массива: '); readln(n); setlength(a,n+1); s:=0; for i:=1 to n do    begin    a[i]:=random(81)-40;    if a[i]<0 then s:=s+a[i];   end; writeln('Сумма отрицательных элементов массива равна ',s);End.