Подвоєний мінімальний

Задано одновимірний масив A дійсних чисел пронумерованих від 1 до h. Обчислити подвоєне значення мінімального елемента масиву.

Вхідні дані

У першому рядку задано натуральне число h - кількість елементів у масиві (h ≤ 100). У наступному рядку через пропуск h дійсних чисел - самі елементи масиву, значення кожного з яких по модулю не перевищує 100.

Вихідні дані

У єдиному рядку вивести відповідь до задачі з точністю до 2-х знаків після десяткової крапки.

Вхідні дані

6

6 7.5 2.1 2.0 0 -3

Вихідні дані

-6.00

program min2;

var a : array[1..100] of real;

n,i : integer;

min : real;

BEGIN

readln (n);

for i:=1 to n do read(a[i]);

min:=a[1];

for i:=2 to n do if a[i]<min then min:=a[i];

writeln ((2*min):1:2);

END.