На заданном промежутке определить количество чисел, удовлетворяющих заданным условиям, и максимальное из них

t:=n;z:=0;while t>1 do begin if not odd(n) then inc(z);n:=n shr 1;end;

program pomogite;
var max, count,n,p:integer;
begin 
  max:=0;
  count:=0;
  for i: integer:= 10 to 9999 do
    begin
    N := 0;
    p:=i;
      while p>1 do
      begin
        if p mod 2 = 0 then n:=1+n;
        p:=p div 2
      end;
     if (i mod 2 = 1) and  (I mod 3=0)and (i mod 11 = 0) and (n=5) then
      begin 
    count:=count +1;
    if i>max then max:=i;
    end;  
    end;
end.

   $' Count = {Count} max = {max}'.PrintLn

var
  n, m, k, t, z: integer;
begin
  n := 33;
  repeat
    t := n;
    z := 0;
    repeat
      t := t shr 1;
      if not odd(t) then inc(z);
    until t <= 3;
    if z = 5 then
      begin
        inc(k);
        m := n
      end;
    inc(n, 66)
  until n > 9999;
  writeln('K = ', k, ', Max = ', m)
end.

var
  n, m, k, t, z: integer;
begin
  n := 33;
  repeat
    t := n;
    z := 0;
    repeat
      t := t div 2;
      if t mod 2 = 0 then z := z + 1;
    until t <= 3;
    if z = 5 then
      begin
        k := k + 1;
        m := n
      end;
    n := n + 66
  until n > 9999;
  writeln('K = ', k, ', Max = ', m)
end.

var
  n, m, k, t, z: integer;
begin
  for n := 10 to 9999 do
    if (n mod 2 = 1) and (n mod 3 = 0) and (n mod 11 = 0) then
      begin
        t := n;
        z := 0;
        while t > 1 do
          begin
            if t mod 2 = 0 then z := z + 1;
            t := t div 2;
          end;
        if z = 5 then
          begin
            k := k + 1;
            m := n
          end
      end;
  writeln('K = ', k, ', Max = ', m)
end.