{* Задача88 *}

REM basic

' В простую переменную последовательно вводятся числа. Окончание ввода - 0. Определить, сколько чисел больше своих соседей слева и справа.


10 { Сколько чисел больше своих соседей справа и слева?
}20 CLS
30 KOL = 0
40 INPUT "Введи первые два числа  0"; PRED, X
50 If PRED = 0 Or X = 0 Then 40
60 While X  0
70 INPUT "Очередное число (0 - выход)"; SLED
80 If X > PRED And X > SLED Then KOL = KOL + 1
90 PRED = X
100 X = SLED
110 Wend
120 PRINT "Больше своих соседей"; KOL; "чисел."
130 End