Задана последовательность из 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.