Дано 10 чисел.вевести четыре числа начиная со второго

Const n=10;var a:array [1..n] of integer;i:integer;beginrandomize;for i:=1 to n do a[i]:=random(50);for i:=2 to 5 dowriteln(a[i]);end.