Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

n1ghtstalker, ой сорь, чтот я затупил с кодом, видать не сохранил переделанную, а скинул код совсем сырой...

Функция данной задачи должна вроде выглядеть так, а как ее впихнуть в саму программу чет не догоняю, не оч дружу с функциями.
Если тебе не сложно помоги доделать ее по условию задачи...

Код:

function proverk (a:array[1..n] of integer):integer;
  var
    i,j:integer;
  begin
    for i:=1 to n-2 do
      if a[i] mod 2 <> 0 then
        if a[i+1] mod 2 <> 0 then
          if a[i+2] mod 2 <> 0 then
            begin
              proverk:=i;
              exit;
            end;
      proverk:=0;
  end;