массив из Z[16 любых численных элементов, определить произведение P и сумму S элементов, занимающее нечетные места! PASCAL

var
z:array[1..16] of Extended;
i:Integer;
P, S:Extended;
begin
for i:=1 to 16 do
begin
write('Z[',i,']: ');
readln(z[ i ]);
end;
s:=0;
p:=1;
for i:=1 to 16 do
begin
if (i mod 2 <> 0) then
begin
p:=p * z[ i ];
s:=s + z[ i ];
end;
end;
writeln('p = ', p:5:2, ', s = ', s:5:2);
end.