Дано 30 натуральных чисел. вычислить среднее арифметическое всех нечетных чисел(Паскаль)

program pas; var a:array[1..30] of integer; i, k: integer; s: real; begin s:=0; k:=0;   for i:=1 to 30 do         readln(a[i]);                   for i:=1 to 30 do             begin               if (not(a[i]mod 2=0)) then               s:=s+a[i];               inc(k);             end;              s:=s/k;             write(s:4:0); end.