Урок 15 Задача 2

Урок 15 Задача 2:

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

var
  m : array [1..7] of integer;        // объявляем массив из 7 элементов
  i : integer;                        // счетчик цикла
begin
  for i:=low(m) to high(m) do         // обходим массив для присваивания значений элементам
  begin
    write('Введите элемент массива номер ', i, ': ');
    readln(m[i]);                     // считываем элемент i массива m из консоли
  end;
  writeln('Элементы массива: ');
  for i:=low(m) to high(m) do         // в отдельном цикле обходим массив, выводим значения
    writeln('номер ', i, ':  ', m[i]);
  readln();
end.   

Вывод в консоли:

Введите элемент массива номер 1: 4
Введите элемент массива номер 2: 7
Введите элемент массива номер 3: 33
Введите элемент массива номер 4: 6
Введите элемент массива номер 5: 25
Введите элемент массива номер 6: 4
Введите элемент массива номер 7: 6
Элементы массива: 
номер 1:  4
номер 2:  7
номер 3:  33
номер 4:  6
номер 5:  25
номер 6:  4
номер 7:  6