Дано N целых чисел. Найти сумму нечетных чисел Pascal ABC net​

var i,n,s,a:integer;

begin

s:=0;

readln(n);

for i:=1 to n do begin

readln(a);

if a mod 2 <> 0 then

s:=s+a;

end;

writeln(s);

end.

##

var n := ReadInteger('Количество чисел:');

var a := ReadArrInteger('Вводите:', n);

Print('Сумма нечетных:', a.Where(k -> k.IsOdd).Sum)