Напишите программу, которая в последовательнсти целых чисел определяет количество нечетных чисел, кратных 3. программа получает на выход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность количество чисел не превышает 1000. введеные числа по модулю не превышают 30 000. программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечетных чисел, кратных 3. )

Из условия нам известно, что ввод завершается числом ноль. Информация о количестве чисел требуется только если их запоминать в массиве, но у нас однопроходный алгоритм, массив не нужен, поэтому про "1000 чисел" благополучно забываем. Числа целые, и по модулю не превышают 30 000, следовательно им надо отводить двухбайтный тип integer, в в котором диапазон представления чисел [-32 768 ; 32 767].
"Нечетные числа, кратные трем" - это такие, у которых остаток от деления на два ненулевой, а остаток от деления на три нулевой. Поскольку числа целые, то и деление, конечно же, целочисленное.
Длина последовательности n - это просто счетчик количества прохождений цикла за вычетом единицы, потому что последний проход по циклу будет при вводе нуля, а его учитывать не надо. В другом счетчике k мы накапливаем количество чисел, для которых выполнилось рассмотренное выше условие "нечетные числа, кратные трем".

var
  n,k,m: integer;
begin
  Writeln('Вводите целые числа, для окончания введите 0');
  n:=0; k:=0;
  repeat
    Read(m); Inc(n);
    if (m mod 2 <> 0) and (m mod 3 = 0) then Inc(k)
  until m=0;
  Writeln('Введено чисел- ',n-1);
  Writeln('Нечетных, кратных трем- ',k)
end.

Тестовое решение:
Вводите целые числа, для окончания введите 0
-5
12
8
27
-18
14
-33
7
0
Введено чисел- 8
Нечетных, кратных трем- 2

Var a:array[1..1000] of integer;
i,j:integer;
begin
repeat
i:=i+1;
read(a[i]);
if (a[i] mod 2<>0) and (a[i] mod 3=0) then j:=j+1;
until (a[i]=0) or (i=1000);
writeln('Kolichestvo chisel - ',i-1);
writeln('Kolichestvo nechetnih chisel kotorie delatsa na 3 - ',j);
writeln;
end.

Если шестеренка с буквами двигается против часовой, а стрелка стоит на месте то буквы будут перечисляться по порядку, от А до Я.
Так как главная шестеренка вращает остальные, то вторая будет двигаться по часовой, это значит что начиная с нуля цифры на второй шестеренке будут уменьшаться, 0, 9, 8...1 и по кругу.
Далее третья шестеренка будет двигаться против часовой значит цифры будут идти по нарастающей, от 0 до 6. Составим таблицу
Таблица в картинках
О Л И М П И А Д А = 51 85 12 76 42 12 00 64 00

Обращая внимание на существующий порядок в природе, мы часто в качестве примера указываем на кристаллы, в кристаллической решетке которых строго чередуются ионы вещества (например, Na+ и Сl– в поваренной соли). Строго упорядоченную структуру имеют и кристаллические металлы. В узлах кристаллической решетки меди располагаются положительно заряженные ионы.

Однако наряду с существующим порядком в природе часто соседствует и беспорядок (хаос). В тех же кристаллах металлов, наряду с упорядоченной ионной решеткой, имеются свободные электроны, которые беспорядочно и хаотично движутся.

Порядок и беспорядок наблюдаются, например, и в космосе. С одной стороны, мы знаем, что планеты движутся по определенным орбитам со строго определенной скоростью. А с другой стороны, в космосе, помимо планет, имеется межзвездное вещество, которое хаотически движется в пространстве, и там, где образуются большие скопления этого вещества, возникают значительные гравитационные силы, в результате чего могут образоваться звездные системы с высокой степенью упорядоченности.

Последний пример указывает на существование процессов и механизмов, ведущих от беспорядка к порядку. Эта особенность подмечена еще в древнегреческой мифологии, где под хаосом понималась «беспредельная, первобытная материя», из которой образовалось все существующее.

Можно привести еще больше примеров перехода от порядка, упорядоченности к хаосу. Так, если нагревать кристаллы поваренной соли, то амплитуда колебаний атомов увеличивается, связь между атомами уменьшается, упорядоченная структура кристалла разрушается и исчезает, а атомы начинают хаотически двигаться. Приведенный пример иллюстрирует процессы, связанные с действием одного из фундаментальных законов природы, имеющего универсальный характер, а именно: со вторым началом (законом) термодинамики.