решите какое-либо Задание!!!!!!!!

1.Напишите программу,которая в последовательности целых чисел определяет количество четных отрицаетльных чисел. Программа получает на вход целые числа, количество введеных чисел неизвестно,Последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность.
Количество чисел не превышает 1000.Введеные числа по модулю непревышают 30000.
Программа должна вывести одно число количество четных отрицательных чисел. входные данные -1 7  2 -6 0  выходные данные 1

2 Напишите программу,которая в последовательности целых чисел определяет количество нечетных положительных чисел. Программа получает на вход целые числа, количество введеных чисел неизвестно,Последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность.
Количество чисел не превышает 1000.Введеные числа по модулю непревышают 30000.
Программа должна вывести одно число количество нечетных положительных чисел: -1 7  2 -6 0  выходные данные 1  

1)

Program pr;uses crt;Var a,k,k1:integer;BeginWriteln('Введите a');readln(a);k1:=1;k:=0;While (a<>0) and (k1<1000) doBeginif (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;BeginWriteln('Введите a');readln(a);k1:=1;k:=0;While (a<>0) and (k1<1000) doBeginif (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.