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

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

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

var i: integer;
a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
   begin
     write('Введите элемент массива номер ', i, ': ');
     readln(a[i]);
   end;
  for i:=1 to 7 do
     write(a[i], ' ');
  readln();
end.