В массиве А(20) случайных целых чисел (диапазон чисел [-10..30] ) определить количество нечетных чисел

var a: array [1..20] of integer; i, s: integer;begin     randomize;     s := 0;     for i := 1 to 20 do         a[i] := random(40) - 10;     for i := 1 to 20 do     begin          write(a[i], ' ');          if (a[i] + 10) mod 2 = 1          then              s := s + 1;     end;     writeln();     writeln(s);end.