Дан массив из 10. Ввести и вывести элемент массива и затем получить новый массив в котором все элементы увеличены в 2 раза. 

Если можно то вместе с алгоритмом и решением))

Progran BiFi;Const n=10;Var a:array[1..n] of real;i:integer;Beginfor i:=1 to n do readln(a[i]);for i:=1 to n do writeln(a[i]);readln;for i:=1 to n do begin a[i]:=a[i]*2;                      writeln(a[i]);                      end;readln;end.