Помогите пожалуйста с задачками))) Pascal
1) Найти сумму всех элементов массива, заполненных случайными числами?
2) Найти сумму четных элементов массива?
3) Найти сумму элементов массива, стоящих на четных местах?

program primer;const n =10;var a:array[1..n] of integer;s,i:integer;beginrandomize;for i  :=1 to n dobegina[i]:=random(19);readln(' ' ,a[i]);end;s:=0;for i :=1 to n dos:=s+a[i];writeln('s=',s);readln;end.program primer2;const n =10;var a:array[1..n] of integer;s,i:integer;beginrandomize;for i  :=1 to n dobegina[i]:=random(19);readln(' ' ,a[i]);end;s:=0;for i :=1 to n doif a[i] mod 2=0 then s:=s+a[i];writeln('s=',s);readln;end.program primer2;const n =10;var a:array[1..n] of integer;s,i:integer;beginrandomize;for i  :=1 to n dobegina[i]:=random(19);readln(' ' ,a[i]);end;s:=0;for i :=1 to n doif i mod 2 =0 then s:=s+a[i];writeln('s=',s);readln;end.