Дана последовательность из "n" элементов. Подсчитать сколько в данной последовательности элементов которые меньше своего соседа слева и справа.
Если сможете, напишите пожалуйста задачу хотя бы от begin до end и на уровне 9 класса
begin
count := 0;
for i := 2 to n - 1 do begin
if (a[i - 1] > a[i]) and (a[i+1] > a[i]) then inc(count);
end;
writeln('count = ', count);
end.