Решить задачу в Паскале методом поиска с барьером. Без использования оператора random.

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

const  n = 10;
var  a :array [1..n] of integer;  i :integer;
begin
  for i:= 1 to n do    readln(a[i]);  for i:= 1 to n do    if a[i] < 10 then    begin      writeln(i);      break;    end;
end.