Создать одномерный массив м из 15 целых чисел (числа вводит пользователь). вывести на экран массив в виде строки чисел.

Program Program1;
var Array_M: array [1..15] of integer;
i: integer;
begin
for i := 1 to 15 do
begin
write('Введите значение ', i, ' элемента массива: ');
readln(Array_M[i]);
end;
for i := 1 to 15 do write(Array_M[i], ' ');
end.