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

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

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

type myArr = array[1..7] of integer;
var
  a: myArr; // объявляем переменную типа  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 massiva:');
   for i:=low(a) to high(a) do
     writeln(i, ' =', a[i]);

   readln();
end.