Вычисления произведения элементов, которые меньше заданного числа Е - Pascal ABC

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

Всем привет,нужна помощь. Написать программу которая вычисляет произведение элементов,которые меньше заданного числа

Решение задачи: «Вычисления произведения элементов, которые меньше заданного числа Е»

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

var a:array[1..20] of real;
    n,i,k:integer;
    t,p:real;
begin
randomize;
write('Размер массива от 1 до 20 n=');
readln(n);
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=5*random;
  write(a[i]:4:1);
 end;
writeln;
write('Ведите число t=');
readln(t);
p:=1;
k:=0;
for i:=1 to n do
if a[i]<t then
 begin
  k:=1;
  p:=p*a[i];
 end;
if k=0 then write('Нет чисел меньше ',t:0:1)
else write('Произведение чисел меньших ',t:0:1,'=',p:0:1)
end.

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

В данном коде объявлены следующие переменные:

a: массив из 20 элементов типа real.
n, i, k: целые числа.
t, p: вещественные числа. Сначала с помощью функции randomize и команды write задается размер массива от 1 до 20. Затем с помощью цикла for читается ввод пользователя и каждому элементу массива присваивается значение 5*random (случайное число от 0 до 49). Значения присвоенных элементов выводятся на экран. Затем с помощью команд readln и write задается вопрос пользователю о вводе числа t. После этого переменная p устанавливается равной 1, а переменная k устанавливается равной 0. Далее идет цикл for, который выполняется, пока есть элементы массива, меньшие числа t. Внутри цикла переменная k устанавливается равной 1, а переменная p устанавливается равной произведению текущего элемента массива и переменной p. После окончания внутреннего цикла проверяется значение переменной k. Если k равно 0, то выводится сообщение о том, что нет чисел меньше заданного числа t. В противном случае выводится сообщение о произведении чисел, меньших заданного числа t. Таким образом, данный код выполняет вычисления произведения элементов массива, которые меньше заданного числа t.