Дан массив c()натуральных чисел.найти произведение элементов массива

Var C:array [ 1..5]of integer;
i,S:integer;
begin
  randomize;
  for i:=1 to 5 do begin C[i]:=random(100);
Wruti(C[i],' ');end; 
for i:=1 to 5 do  S:=S+C[i];
Writeln('произведение элементов массива=',S);
end.