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

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

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

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