Ответьте да или ли информацией : сведения,содержащиеся в библиотеке конгресса сша? нерасшифрованные космические послания? сведения,содержащиеся в книге,которую вы читаете повторно?

Да

// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   a: =a.sorteddescending.toarray; a.println;   writeln('п=',a.where(k-> k mod 7=0).defaultifempty           .aggregate(1,(i,j)-> i*j)) end. пример n= 15 80 -59 89 66 -88 -50 -16 -30 -65 -75 28 -51 56 35 36 89 80 66 56 36 35 28 -16 -30 -50 -51 -59 -65 -75 -88 п=54880 begin   var b: =arrrandom(readinteger('n=',99); b.println;   b: =b+arr(b.sum); b.println end. пример n= 15 -36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79 -36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79 -71 begin   var c: =arrrandom(readinteger('n=',99); c.println;   var a: =readinteger('a=');   var b: =c.where(x-> x> a).toarray;   write('b[',b.count,']='); b.println end. пример n= 16 58 -91 12 -48 -42 1 -73 5 -47 99 -80 55 -10 31 -62 0 a= 10 b[5]=58 12 99 55 31