Решить задачи (программа на языке Паскаль): 1.Заполнить и вывести массив из 7чисел, так чтобы значения элементов массива - совпадали с их индексами

2.Заполнить и вывести массив из 5 чисел оператором случайных чисел до100

1)var a: array [1..7] of  integer;

i:integer;

begin

 for i:=1 to 7 do

 begin

   a[i]:=i;

 writeln(a[i]);

 end;

end.

2)var a: array [1..5] of  integer;

i:integer;

begin

 for i:=1 to 5 do

 begin

   a[i]:=random(100);

   writeln(a[i]);

   end;

 end.