program lab21;

uses SysUtils;

const
    MAX_NUMBER_OF_ELEMENTS = 15;
    MAX_ELEMENT_VALUE = 1000.0;

var
    IsCorrect: Boolean;
    NumberOfElements, CountOfTriples, EndNumber, LastIndexForCheck, i: Integer;
    ArrayNumber: Array of Double;

begin
    Writeln('Программа позволяет посчитать количество троек, таких в данной последовательности x1, x2, ..., xn , что x(n-1) < xn < x(n+1).');
    Writeln('Введите целое положительное количество элементов последовательности не большее, чем ',
      MAX_NUMBER_OF_ELEMENTS);
    repeat
        IsCorrect := true;
        try
            Readln(NumberOfElements);
        except
            Writeln('Число элементов последовательности должно являться целым числом и быть не больше, чем ',
              MAX_NUMBER_OF_ELEMENTS);
            IsCorrect := false;
        end;
        if IsCorrect and ((NumberOfElements <= 0) or
          (NumberOfElements > MAX_NUMBER_OF_ELEMENTS)) then
        begin
            Writeln('Число элементов последовательности должно являться положительным и быть не больше, чем ',
              MAX_NUMBER_OF_ELEMENTS);
            IsCorrect := false;
        end;
    until IsCorrect;
    EndNumber := NumberOfElements - 1;
    Setlength(ArrayNumber, NumberOfElements);
    for i := 0 to EndNumber do
    begin;
        Writeln('Введите член под номером ', i + 1,
          ', который по модулю не больше чем ', MAX_ELEMENT_VALUE:4:1);
        repeat
            IsCorrect := true;
            try
                Readln(ArrayNumber[i]);
            except
                Writeln('Элемент должен быть числом, которое по модулю не больше, чем ',
                  MAX_ELEMENT_VALUE:4:1);
                IsCorrect := false;
            end;
            if IsCorrect and (abs(ArrayNumber[i]) > MAX_ELEMENT_VALUE) then
            begin
                Writeln('Элемент должен быть числом, которое по модулю не больше, чем ',
                  MAX_ELEMENT_VALUE:4:1);
                IsCorrect := false;
            end;
        until IsCorrect;
    end;
    LastIndexForCheck := EndNumber - 1;
    for i := 1 to LastIndexForCheck do
        if ((ArrayNumber[i] < ArrayNumber[i + 1]) and
          (ArrayNumber[i] > ArrayNumber[i - 1])) then
            Inc(CountOfTriples);
    Writeln('Количество таких троек: ', CountOfTriples);
    Readln;

end.