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

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

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

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