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

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

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

type ar = array[1..7] of integer;
var i : integer;
    A : ar;
begin
  for i:=low(A) to high(A) do // инициализация
    readln(A[i]);
  for i:=low(A) to high(A) do // вывод
    write(A[i], ' ');
  readln();
end.