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

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

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

program zadacha2;
var 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
    write(a[i],' ');
  readln();
end.