Написать программу которая выведет элементы массива в столбик с 3-его…

Program n1; Uses CRT; Const n=10; Var a: array[1… n] of integer; i: integer; beginrandomize; For i: =1 to n do a[i]: =random (10); For i: =3 to 7 do writeln (a[i]); readlnend.