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

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

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

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