{так как кол-во чисел не превышает 1000, то можно использовать массив длинной в 1000 элементов}
Program n1;
const n=1000;
var a: array [1..n] of integer;
i: integer;
begin
write('введите 1 число: ');
readln(a[1]);
for i:=1 to n-1 do
begin
write('введите ',i+1,' число: ');
readln(a[i+1]);
if (abs(a[i])>100) then break;
if(a[i]*a[i+1]<50)then
begin
writeln(i,' ',i+1);
break;
end;
end;
end.