Напишите программу, которая в последовательности натуральных чисел определяет количество нечетных чисел, кратных 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 4. количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число -количество чисел, кратных 4

1)Program pr;
uses crt;
Var a,k,k1:integer;

Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a<>0) and (k1<1000) do
Begin
if (a<0) and (a mod 2=0) and (abs(a)<=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end. 2)
Program pr;
uses crt;
Var a,k,k1:integer;

Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a<>0) and (k1<1000) do
Begin
if (a>0) and (a mod 2<>0) and (abs(a)<=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end.

Объяснение:

рлллолшчллы пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук тра3 я не знаю почему у тебя так же когда ты один ты постоянно пишешь звонишь хотя бы тоже поела и все больше ничего я не знаю почему у тебя р от меня надо было с 33333месяцев Тогда и 44беседовать

     По условию здесь шифр Цезаря +7. Это значит, что при  шифровании вместо каждой буквы писали другую, отдаленную от настоящей на 7 букв вперед по алфавиту.
    Значит при расшифровке надо сдвигаться, наоборот, на 7 букв назад, к началу алфавита. Здесь пронумерованный алфавит.

шифр      Ц    Т    Ж    Ф     Я    Л    Щ
№           24   20   8     22   33   13   27
№ - 7      17   13   1     15   26    6    20
буква       П    Л    А     Н    Ш     Е     Т

ответ: Планшет

Приложение: пронумерованный алфавит
А1   Б2   В3   Г4   Д5    Е6   Ё7   Ж8   З9   И10   Й11   К12   Л13   М14   Н15   О16   П17   Р18   С19   Т20   У21   Ф22   Х23   Ц24   Ч25   Ш26   Щ27  Ъ28   Ы29   Ь30   Э31   Ю32   Я33