Радиотелескоп пытается получать и анализировать сигналы из космоса. различные шумы переводятся в последовательность вещественных неотрицательных чисел, заданных с точностью до 1 знака после десятичной точки. при анализе этих данных потребовалось выбрать такое непустое подмножество сигналов (в него может войти как один сигнал, так и все), произведение значений которого будет максимальным. определите, какие сигналы войдут в это подмножество. на паскале напишите.

Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение. // pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var a: =seqrandom(readinteger('n='),0,99).select(t-> 0.1*t).toarray;   a.println.where(t-> t> =1.0).println end. пример n= 15 1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9 1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.