Дан одномерный массив, заполненный целыми числами с клавиатуры. Необходимо все числа удвоить.

Помогите пожалуйста составить программу!!!!

Ты не не написала сколько у массива всего элементов.. но да ладно. пускай будет константа, сама ее поменяешь если надо)program first;const n = 10;var A : array[1..n] of Real;i:integer;beginWriteln('Введите элементы массива:');for i:=1 to n doReadln(A[i]);for i:=1 to n doWrite(A[i]*2:4);end.