Запишите 5 различных имён файлов, удовлетворяющих маске $%$#

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('n=');
  var b:=ArrRandomReal(n,-5,10);
  Writeln('Исходный массив'); b.Println(', ');
  Writeln('Сумма положительных элементов ',
    b.Where(x->x>0).Sum)
end.

Тестовое решение:
n= 10
Исходный массив
6.62419754156107, 6.74697848816727, 4.73433683148322, -0.587218480923781, -4.4331698163567, 0.961155824345143, -0.229649536884227, 7.50758543494511, 7.66080652720332, 9.97409514848799
Сумма положительных элементов 44.2091557961931

Жила была девочка. Она любила играть в игрушечного ослика. Но в ее день рождение ей подарили книгу, она была интересно .И когда девочка читала книгу, она часто забывала про своего друга детства. Ну вот девочке уже 13 лет. И родители решили подарить ей ноутбук, но когда девочка в него играла, она забывала обо всем на свете.
Вот пришло время генеральной уборки, мама девочки выставляет не нужные вещи на продажу. В свою очередь девочка уберает, чистит, моет свою комнату. Вот она все сделала и ей осталось собрать не нужные вещи. Она протянула руку на книжную полку и нашла свою самую первую книгу. Она улыбнулась и пустила слезу, при этом говоря :,, Все меняется''. Положив книгу в коробку, она заглянула в свой сундук с игрушками и увидела всего лишь одну игрушку. Да, это был тот самый ослик. Она обняла его, при этом сказав:,, все в жизни меняется, так же как и возвраст''. Девочка положила ослика в коробку и отнесла ее маме.Эту коробку купила одна девочка. Она была счастлива смотря на чудесные вещи.