дано натуральное число n,действительные числа А1...Аn.В последовательности получить удвоенную сумму всех положительных элементов.Решить в Паскале

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var n:=ReadInteger('n=');  var a:=ReadSeqReal('Вводите элементы последовательности',n);  Writeln('Удвоенная сумма положительных равна ',2*a.Where(x->x>0).Sum)end.Примерn= 5Вводите элементы последовательности -3 5.1 3.2 -2.6 0Удвоенная сумма положительных равна 16.6