С клавиатуры вводится 20 целых чисел.Найти сумму и произведение нечётных и отрицательных

Var i,n,sum,summ: integer; begin summ: =1; for i: =1 to 20 do begin writeln('введите ',i,' число'); readln(n); if (n mod 2< > 0) and (n< 0) then begin inc(sum,n); summ: =summ*n; end; end; writeln('сумма: ',sum); writeln('произведение: ',summ); end.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.ToWords.Select(w->w.Inverse).Println
end.

Пример
А роза упала на лапу Азора
А азор алапу ан упал арозА

Замечание: ограничение на длину предложения отсутствует. Пробелов между словами может быть и несколько.

1Freeware или 2 нет верного ответа

2) если я не ошибаюсь.