{* Задача126 *}

REM basic

' Дана последовательность действительных чисел a1<_ a2<_...<_ an.
' Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей.


CLS
INPUT "vvedite n"; n
INPUT "vvedite b"; b
Dim a(n), b(n + 1)
For i = 1 To n
    PRINT "vvedite a("; i; ")";
    INPUT a(i)
Next
For i = 1 To n
    PRINT a(i);
Next
For i = 1 To n
    If (a(i - 1)  b) And (f = 0) Then b(i) = b: f = 1
    b(i + f) = a(i)
Next
PRINT: PRINT String$(80, 196)
For i = 1 To n + 1
    PRINT b(i);
Next
End