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

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

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

var a : array [1..7] of integer;
    i, b : integer;
begin
  for i := 1 to 7 do
    begin
      writeln('vvedi chislo');
      readln(b);
      a[i] := b;
    end;
  for i := low(a) to high(a) do
    begin
      writeln(a[i]);
    end;
  readln();
end.