{ Работа #4, Вариант #17 }
{ Дан массив целых положительных чисел. }
{ Найти произведение только тех чисел, которые больше заданного числа М. }
{ Если таких нет, то выдать сообщение об этом. }

const N = 20; { Размерность массива }

var
    M   : integer;                 { Число M             }
    arr : array [1..N] of integer; { массив целых чисел  }

    index      : integer;        { Итератор                                                          }
    result     : integer = 1;    { Результат                                                         }
    not_found  : boolean = true; { Флаг, говорящий, что ещё не найдено чисел, удволетворяющих уловию }

begin

    write('Чему равно M?');
    readln(M);

    for index := 1 to N do begin

        write('Чему равно B[', i, ']=');
        readln( b[i] );

        if arr[index] > M then begin
            result    := result * arr[index];
            not_found := false;
        end;

    end;

    if not_found then
        writeln('В заданном массиве не найдены числа, больше чем M')
    else
        writeln( result );

    readln;
end.