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

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

Progran BiFi;

Const n=10;

Var a:array[1 ... n] of real;

i:integer;

Begin

for 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.