Введите n количество чисел чтоб считала только сумму нечетных чисел а счетных не считала сделайте без массива Сделайте

var n,i,sum: integer;begin//ввод данныхwrite(\'Введите количество чисел n: \'); readln(n);sum:=0; //обнуление суммыwriteln (\'Вводите числа\');While (n>0) do //цикл ПОКА количество ожидаемых для ввода чисел больше 0beginreadln(i); //вводим в одну переменнуюif (i mod 2 = 1) then sum:=sum+i; //и сразу проверяем её на нечётность, ЕСЛИ нечётна => прибавляем к суммеn:=n-1; //уменьшаем количество ожидаемых для ввода чиселend;//выводwrite(\'Сумма нечётных чисел равна \', sum);end.