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

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

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

type
  myArr = array[1..7] of integer;
var
  a: myArr;
  i : integer;
begin
   for i:=low(a) to high(a) do
   begin
     writeln('vvedite element massiva nomer ', i, ':');
     readln(a[i]);
   end;

   writeln('elementi vvedennogo vami massiva:');
   for i:=low(a) to high(a) do
     writeln(a[i], ' <-- a[', i, '] ');

   readln();
end.   

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

vvedite element massiva nomer 1:
2
vvedite element massiva nomer 2:
5
vvedite element massiva nomer 3:
3
vvedite element massiva nomer 4:
8
vvedite element massiva nomer 5:
2
vvedite element massiva nomer 6:
85
vvedite element massiva nomer 7:
2
elementi vvedennogo vami massiva:
2 <-- a[1]
5 <-- a[2]
3 <-- a[3]
8 <-- a[4]
2 <-- a[5]
85 <-- a[6]
2 <-- a[7]