Трудная прога на Паскале

[HECTOR.A.]

Помогите с программой
Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом.

[alex_fcsm]

var st:string;
    i,n,code,t:integer;
begin
readln(st);
n:=0;
for i:=1 to length(st) do
 begin
  val(st[i],t,code);
  n:=n+t;
 end;
if n mod 2=0 then writeln('Yes')
   else writeln('NO');
readln;
end.

[Christmas-one]

Дан одномерный массив А(N).
Написать прогу, где вычислить S=A(1)+A(2)*A(3)+ A(4)*A(5)*A(6)+ A(7)*A(8)*A(9)*A(10) + …+…A(N) .

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,p:integer;
    temp,sum:real;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=random(20)+1;
 write(a[i]:3);
 end;
p:=0;sum:=0;i:=1;
while i<=n do
 begin
 temp:=1;
 for j:=i to i+p do
 begin
  if j<=n then temp:=temp*a[j];
  inc(i);
 end;
 sum:=sum+temp;
 inc(p);
 end;
writeln;
writeln(sum:6:0);
end.