Массив из 30 элементов вводится с клавиатуры, найти произведение всех элементов, сумму нечетных по счету и количество элементов равных нулю. мне нужна программа в паскале, нужно : з тому кто сделает все верно поставлю "лучший"

Var a: array[1..30] of real;
pr, summ: real;
i, k: integer;
begin
k:=0;
pr:=1;
summ:=0;
for i:=1 to 30 do begin
readln(a[i]);
If i mod 2 <> 0 then
summ:=summ + a[i];
If a[i] = 0 then k:=k+1;
pr:=pr*a[i];
end;
writeln('Произведение элементов = ', pr);
writeln('Сумма элементов, стоящих на нечётных местах = ', summ);
writeln('Количество нулей в массиве: ', k);
end.