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

program pas;vara:array[1..30] of integer;i, k: integer;s: real;begins:=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.