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

var  a:array[1..10]of integer;  i,k,p:integer;beginfor 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.