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

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

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

program project1;
var numbArr: array[1..7] of integer;
    i:integer;
begin
  for i:=low(numbArr) to high(numbArr) do
  begin
    write('Введите ',i,' число : '); readln(numbArr[i]);
  end;
  for i:=low(numbArr) to high(numbArr) do
  begin
    write(numbArr[i], ' ');
  end;
  readln();
end.