Задание 2 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

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

var i:integer;
    a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
   begin
     writeln('Enter the number ',(high(a)-i)+1,' more times');
     readln(a[i]);
   end;
  writeln('They are now in an array. Look:');
  for i:=low(a) to high(a) do
    write(a[i], ' ');
  readln();
end.

//Enter the number 7 more times
//13
//Enter the number 6 more times
//2
//Enter the number 5 more times
//77
//Enter the number 4 more times
//-4
//Enter the number 3 more times
//8
//Enter the number 2 more times
//11
//Enter the number 1 more times
//15
//They are now in an array. Look:
//13 2 77 -4 8 11 15