Задача. Массив А вводится с клавиатуры. Сформировать новый массив В , состоящий из положительных элементов массива А. Размер произвольный.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  var n:=ReadInteger('n=');  var a:=ReadArrInteger('->',n);  var b:=a.Select(x->x>0);  b.Printlnend.