Найти тройки чисел, удовлетворяющие условию - Turbo Pascal

Формулировка задачи:

Дана таблица целых чисел a1, a2, ..., an. Найти тройки чисел аi-1, ai, ai+1, удовлетворяющие условию: а вводится с клавиатуры!

Решение задачи: «Найти тройки чисел, удовлетворяющие условию»

Листинг программы

Var A:array[1..100] of real;
    i,n:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    For i:=2 to n-1 do
     if A[i]<=((A[i+1]+A[i-1])/2) then writeln(A[i]:6:2,A[i-1]:6:2,A[i+1]:6:2);
    readln;
End.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal происходит следующее:

Создается переменная A типа array[1..100] of real, которая представляет собой массив из 100 чисел типа real.
Задается переменная i типа byte, которая будет использоваться для итерации по элементам массива A.
Задается переменная n типа byte, которую считывает пользователь. Введенное значение сохраняется в переменной n.
Запускается цикл For, который выполняется от 1 до n (включительно). Внутри цикла выводится сообщение A[,i,'] = ' и считывается значение A[i] с помощью функции readln(). Значение A[i] сохраняется в переменной A[i].
Запускается еще один цикл For, который выполняется от 2 до n-1 (включительно). Внутри цикла проверяется условие A[i]<=((A[i+1]+A[i-1])/2). Если это условие истинно, то выводятся значения A[i], A[i-1] и A[i+1] с помощью функции writeln(). Формат вывода — шестизначное число, разделенное двоеточием, с отступом в две позиции.
Выводится сообщение readln(). Таким образом, данный код позволяет пользователю ввести значения элементов массива A и вывести тройки чисел, удовлетворяющих условию A[i]<=((A[i+1]+A[i-1])/2).