Паскаль! . задано массив целых чисел по убыванию а(1; n) и число в. для числа в найти такое место среди элементов массива а ,чтоб после вставки числа в на это место массива не нарушалась. если впоследствии равенства между собою значений элементов массива а число может вставляться на разные места,то следует выяснить самое близкое к началу массива место.
var a:array[1..100]of integer;
n,i,B,j:integer;
begin
readln(n)
for i:=1 to n do
read(a[i]);
j:=0;
for i:=1 to n do
if(a[i]<=b)then begin
j:=i;
break;
end;
if(j>0)then writeln(j) else writeln(n+1);
end.