Дан массив. Все его элементы умножить на последний элемент

const n=10; //количество элементов массиваvar a: array [1… n] of real; i: integer; begin for i: =1 to n do begin writeln ('Введите ', i, ' элемент массива'); readln (a[i]); //вводим очередной элемент массива end; write ('Исходный массив: '); for i: =1 to n do write (a[i], '); //Выводим исходный массив writeln; //Перевод на новую строку write ('Полученный массив: '); for i: =1 to n do begin a[i]: =a[i]*a[n]; //элемент массива умножаем на последний элемент write (a[i], '); //выводим полученный элемент массива end; end.