Дана последовательность действительных чисел а1, а2, а3...аn Cоздать массив из положительных чисел этой последовательности (если таких чисел нет, то вывести сообщение об этом факте)

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var s := ReadSeqReal('Введите числа:', n);

 var a := s.Where(p -> p > 0).ToArray;

 if a.Length = 0 then

   Print('Положительных чисел нет')

 else

   a.Print

end.