Программирование на паскаль. Помогите пожалуйста!!!Срочно надо!!! 1.Найти сумму всех отрицательных чисел из массива 30000 2.Написать программу нахождения произведения всех чисел, которые делятся на 3

1. var a:array[1..30000] of integer; b,x:integer; begin for x:=1 to 30000 do begin readln(a[x]); if a[x]<0 then b:= b+a[x]; end; end. 2. var a:array[1..30000] of integer; b,x:integer; begin b:= 1; for x:=1 to 30000 do begin readln(a[x]); if a[x] mod 3 = 0 then b:= b*a[x]; end; end.