(сумма) найти произведение элементов массива вещественных чисел, меньших заданного числа.

var   a:array[1..10]of integer;   i,k,p:integer; begin for i:=1 to 10 do   begin   a[i]:=random(10)+1;   write(a[i],'; ');   end; writeln; write('Введите число: '); readln(k); p:=1; for i:=1 to 10 do   if a[i]