На вход в первой строке подается целое четное положительное число N,

var

a:array[0..10000] of longint;

n,i,poz,max:longint;

begin

readln(n);

for i:=1 to n do begin

read(a[i]); end;

max:=10000000;

for i:=1 to n-1 do begin

if(a[i]=a[i+1]-1) then

if (a[i]*a[i+1]lt;max) then begin max:=a[i]*a[i+1]; poz:=i; end end;

writeln(poz);

end.

P.S. Код достаточно сыроватый, да плюс практически не проверен. Можешь пользоваться, моей целью было подкинуть идею, а может и всё здесь норм, хз.