ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)

cost=10;var a:array[1..N] of integer;i, s: integer;for I:=1 to N doreadln (a[i]);s:=0;if a[i] mob 2 <> 0 then s:=s+1;writeln ('s=' , s);end.