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

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]<k then p:=p*a[i];
writeln('P=',p);
end.