Дано N целых чисел. Найти количество четных чисел, расположенных после первого числа, кратного 9

program adf;
var
  i,n,num,k:integer;
begin
  write ('кол-во чисел: ');
  readln (n);
  k:=0;
  for i:=1 to n do
    begin
      write ('введите число: ');
      readln (num);
      if (num mod 9 = 0) and (num mod 2 = 0) then
        begin
         k:=k+1;
        end;
    end;
  write ('кол-во четных/кратных 9: ',k);
  writeln;
end.

var i,n,num,k,c1,q:integer;
begin
write ('кол-во чисел n=');
readln (n);
c1:=0;//номер первого числа кратного 9
k:=0;//количество четных после сp
for i:=1 to n do
 begin
  write ('введите число: ');
  readln (num);
  if(num mod 9=0)and(c1=0)then c1:=i;
  if (i>c1)and(num mod 2=0) then inc(k);
 end;
write ('кол-во четных после первого числа кратного 9=',k);
end.

var i,n,num,k,c1:integer;
begin
write ('кол-во чисел n=');
readln (n);
c1:=0;//номер первого числа кратного 9
k:=0;//количество четных после сp
while i<=n do
 begin
  write ('введите число: ');
  readln (num);
  if(num mod 9=0)and(c1=0)then
   begin
    c1:=1;
    inc(i);
   end;
  if (c1=1)and(num mod 2=0) then inc(k);
  inc(i);
 end;
write ('кол-во четных после первого числа кратного 9=',k);
end.