Помогите решить задачу на Паскале!!

Question

Люди помогите решить задачу на паскале срочно нужно!! ! 
 
Ввести одномерный массив A из 12 действительных чисел. Вычислить сумму всех отрицательных элементов и вывести ее на экран

Инна Соловьева · Accepted Answer

var 
a: array[1..12] of real; 
i: integer; 
sum: real; 
begin 
sum:=0; 
for i:=1 to 12 do begin 
readln(a[ i]); 
if a[ i]<0 then sum:=sum+a[ i]; 
end; 
writeln(sum); 
end.