Дан массив из N целых чисел. Отыскать номер первого элемента, который

program n1; var a:array[1..1000] of integer; i,n,k:integer; begin readln(n); for i:=1 to n do read(a[i]); k:=0; for i:=1 to n do if a[i] mod 3=0 then k:=k+1; i:=1; while (ilt;=n) and (a[i] lt;gt; k) do i:=i+1; if igt;n then writeln(NO) else writeln(i); end.