дан целочисленный массив из 10 элементов все элементы которого целые числа в интервале от - 1000 до 1000. напишите программу которая находит количество элементов всех нечетных элементов массива которые делятся на 3

на языке Pascal желательно

program E08;  uses crt;    var      X: array[-1000..1000] of integer;      S,i,k: integer;begin  clrscr;  writeln('Введите массив X:');  for i:=1 to 10 do    begin      write('X[',i:2,'] ==> ');      readln(X[i])    end;      for i:=1 to 10 do    write(X[i],' ');    writeln;  K:=0;    for i:=1 to 10 do    begin      S:=X[i] mod 3;      if S = 0 then        K:=K+1    end;      writeln('Ответ: ',K)end.