Определите, есть ли в данном массиве два соседних отрицательных элемента. Найдите номер первой пары.

//Pascal ABC.NET v3.0 сборка 1111Const n=5;Var ar:array[1..n] of integer; i:integer;begin for i:=1 to n do readln(ar[i]); for i:=1 to n-1 do  if (ar[i]<0) and (ar[i+1]<0) then    begin    writeln('Есть,',i,' и ',i+1);    exit;   end;  writeln('Нет'); end.Пример ввода:12-2-11Пример вывода:Есть,3 и 4