Дан линейный массив а[1..n], содержащий целые числа. вычислить сумму нечётных чисел.

Var a:array[1.. 1000] of integer;
i,s:integer;
begin
write('Введите размер массива n='); readln(n);
s:=0;
for i:=1 to n do
if a[i]mod 2 =1 then s:=s+a[i];
writeln('Сумма нечетных чисел массива равна ' , s);
end.