Задана последовательность из n вещественных чисел. опреде- лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.

Const
  n = 50;// количество элем массиваvar
  a: array [1..n] of integer;
  kol, i: integer;begin
  for i := 1 to n do
    readln(a[i]);
  for i := 2 to n - 1 do
    if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
      kol := kol + 1;
  writeln(kol);
end.