function proverk (a:array of integer):integer;
  const seqLength = 3;
  var
    i:integer;
    counter: integer;
  begin
    counter := 0;
    for i:=0 to length(a) do
      if a[i] mod 2 <> 0 then
      begin
        counter := counter + 1;
        if(counter=seqLength) then
          begin
          proverk := i- seqLength + 1;
          exit;
          end
      end
      else
        counter := 0;

      proverk:=0;
  end;