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

1.var a:array[1..30000] of integer; b,x:integer;beginfor 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;beginb:= 1;for x:=1 to 30000 do begin readln(a[x]);if a[x] mod 3 = 0 then b:= b*a[x];end;end.