program DoubleSum;
var
n, i: integer;
A: array[1..100] of real;
sum: real;
begin
sum := 0;

write('Введите количество элементов в последовательности: ');
readln(n);

writeln('Введите элементы последовательности:');
for i := 1 to n do
begin
write('A', i, ': ');
readln(A[i]);
if A[i] > 0 then
sum := sum + A[i];
end;

sum := sum * 2;

writeln('Удвоенная сумма всех положительных элементов: ', sum:0:2);

end.