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

Сделайте в паскале

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)var a,n,i,s:integer;begin  write('Число элементов последовательности ');  readln(n);  for i:=1 to n do begin    write(i,' элемент последовательности = ');readln(a);    if (a mod 2 <>0) then s:=s+a;  end;  writeln('Сумма нечетных = ',s); end.Тестовое решение:Число элементов последовательности 51 элемент последовательности = 32 элемент последовательности = 23 элемент последовательности = 44 элемент последовательности = 15 элемент последовательности = 5Сумма нечетных = 9