Составить программу для вычисления T=R/(Q+1)+SR — наименьший элемент массива;Q — произведение элементов массива с нечетными номерами;S — количество элементов, лежащих в интервале (A,B)  — Pascal(Паскаль)

WRITE('введите размерность одномерного массива ');
READ(n);
for i:=1 to n do begin
 mas[i]:= random(32);      {задаем массив случайным образом}
end;
 
writeln('одномерный массив:');
for i:=1 to n do write(mas[i]:3);           {выводим массив}
writeln;
min:=mas[1];
for i:=1 to n do begin
if mas[i]<min then begin min:=mas[i];
end;
end;
writeln('R = ',min);
 
{Q - произведение элементов массива с нечетными номерами;}
 
 proizved:=1;
 for i:=1 to n do begin
 if (mas[i] mod 2)=0 then proizved:=proizved*mas[i];
 end;
 writeln ('Q= ',proizved);