Решение задачи №1 из главы 15

Решение задачи №1 из главы 15

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

Вывод консоли
vvedite element massiva nomer 1:
1
vvedite element massiva nomer 2:
22
vvedite element massiva nomer 3:
3
vvedite element massiva nomer 4:
5
vvedite element massiva nomer 5:
9
vvedite element massiva nomer 6:
77
vvedite element massiva nomer 7:
99


vivodim elementi massiva:1
1
vivodim elementi massiva:2
22
vivodim elementi massiva:3
3
vivodim elementi massiva:4
5
vivodim elementi massiva:5
9
vivodim elementi massiva:6
77
vivodim elementi massiva:7
99

var a:array[1..7] of integer; i:integer;
  begin
    for i:=1 to 7 do
    begin
       writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
       readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;
     writeln();
     writeln();
    for i:=1 to 7 do
    begin
       writeln('vivodim elementi massiva:',i,'  ');  // пояснение для пользователя
       writeln(a[i], '  ');  // считываем элемент i массива 'a' из консоли
    end;
    readln();
  end.