Вычислить выражение

const
  n_max = 100;
 
var
  s, a, b, i, n, min: integer;
  mas: array[1..n_max] of integer;
  t, proizved: real;
 
begin
  randomize;
  WRITE('Введите размерность одномерного массива ');
  READln(n);
  write('Введите интервал (A,B): ');
  READln(a, b);
  //S - количество элементов, лежащих в интервале (A,B)   
  writeln('Одномерный массив:');  
  {Q - произведение элементов массива с нечетными номерами;}    
  min := 1;
  s := 0;
  proizved := 1;    
  for i := 1 to n do 
  begin
    mas[i] := random(-20, 20);      {задаем массив случайным образом}
    write(mas[i]:5);           {выводим массив}    
    if mas[i] < mas[min] then 
      min := i;
    if odd(i) then 
      proizved := proizved * mas[i];
    if (mas[i] <= b) and (mas[i] >= a) then
      inc(s);
  end;
  writeln;
  writeln('R = ', mas[min]);
  writeln('Q = ', proizved:0:0);
  writeln('S = ', s);  
  //T=(R/(Q+1))+S
  T := mas[min] / (proizved + 1) + s;
  writeln('T = ', T);    
end.