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

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