Программирование на паскаль. ! ! 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.