Даю 80 балов. Сформировать и вывести на экран массив, элементы которого

var

 A: array [1..10] of Integer; // объявление массива  границы можно поменять, программа это усвоит

 i, t, P: Integer;            // объявление переменных

 IsFound: Boolean;            // объявление булевой переменной

begin

   Randomize;                       // инициализация датчика случайных чисел

   for i := Low (A) to High (A) do  // цикл по всем элементам массива

     A [i] := Random (104) - 56;    // сохранение в элементе массива случайного числа со значением от -56 до 47

   Writeln ('Случайный массив:');

   for i := Low (A) to High (A) do  // цикл вывода номеров и значений массива

     WriteLn (IntToStr (i) + ': ' + IntToStr (A [i]) + ' ');

   Writeln;

   Write ('Введите число t: ');

   ReadLn (t);                      // ввод числа t  с клавиатуры

   P := 1;                          // Начальное значение для подсчета творенья частей

   IsFound := False;                // установка начального значения флага, избран ли желая бы один элемент массива

   Writeln;

   Write ('Четные элементы, значение которых больше ' + IntToStr (t) + ':');

   for i := Low (A) to High (A) do begin     // цикл просмотра всех частей массива

     if i mod 2 = 0 then begin               // проверка номера элемента на четность

       if A [i] gt; t then begin               // элемент массива превосходит число t?

         IsFound := True;                    // установить флаг: найден элемент массива, удовлетворяющий условиям выбора

         P := P * A [i];                     // добавить элемент к творению

         Write (IntToStr (A [i]) + ' ');

       end;

     end;

   end;

   Writeln;

   if IsFound then                           // если найден желая бы один элемент, выводим творенье

     Writeln ('Произведение четных частей, значение которых больше ' + IntToStr (t) + ' = ' + IntToStr (P))

   else                                      // по другому сообщаем, что не найдено

     WriteLn ('Четных элементов, значение которых больше ' + IntToStr (t) + ' не найдено.');

end;

// ------ конец кода программы ---------

разъяснение даны в коде в виде комментариев. снимок экрана с экрана во вложении