(паскаль) разработайте программу, определяющую количество нечётных чисел в целочисленном массиве из 17 элементов. массив заполнить любым и вывести на экран в одну строку

Var
 a:array[1..17] of longint; 
 n,i,j:longint;
begin 
 For i:=1 to 17 do
 begin 
  Read(a[i]); 
  if odd(a[i]) then inc(n);
end;
writeln(n);
end.