Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!

Var a,b,c,d: integer; begin   writeln('введите 4 числа через пробел'); readln(a,b,c,d);   if (a> 0)and(b> 0)and(c> 0)and(d> 0) then writeln('все числа положительные')   else  if  ((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d> 0))or((a> 0)and(b> 0)(c< 0))or((a> 0)and(b> 0)and(c> 0)and(d< 0)) then writeln('3 числа положительные')   else if ((a< 0)and(b< 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c< 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d< 0))or((a> 0)and(b< 0)and(c< 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d< 0))or((a> 0)and(b> 0)and(c< 0)and(d< 0)) then writeln('2 числа положительных');   else if ((a> 0)and(b< 0)and(c< 0)and(d< 0))or((a< 0)and(b> 0)and(c< 0)and(d< 0))or((a< 0)and(b< 0)and(c> 0)and(d< 0))or((a< 0)and(b< 0)and(c< 0)and(d> 0)) then writeln('1 положительное число')   else if  (a< 0)and(b< 0)and(c< 0)and(d< 0) then writeln('нет положительных чисел');   readln end.

У меня тоже с этим проблемы

Var a,z,q:integer;
begin
readln(a);
q:=0;
while a<>0 do
begin
z:=a mod 10;
a:=a div 10;
if a mod 2=0 then
q:=q+1;
end;
writeln(q);
end.

11001100 = М
11010011 = У
11001010 = К