Решить в паскале методом поиска с барьером. без использования оператора 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.