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

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.