помогите решить задачи по информатике через паскаль
1)Массив А вводится с клавиатуры. Найти сумму его элементов . Размер произвольный
2)Найти произведение элементов , кратных 3 в массиве заданном датчиком случайных чисел на интервале (-28,27). Размер произвольный

1) const N=3; // количество элементов в массивеvar A:array[1..N] of integer; i,s:integer;BEGINfor i:=1 to N doreadln (a[i]);s:=0;for i:=1 to N dos:= s+a[i];writeln ('Сумма элементов массива ',s);END.

2)const n=10;var a:array[1..n] of integer;i,p:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(56)-28; write(a[i]:4); end;writeln;p:=1;for i:=1 to n do if a[i] mod 3 = 0 then p:=p*a[i];if p<>1 then writeln('p = ',p) else writeln('В массиве нет элементов, кратных 3');end.Пример:   1 -28  12 -10 -17  -3  16 -16   8 -14p = -36