описать массив из 20 элементов вывести его на экран(случайно) отдельной строкой вывести 5-й элемент

Program n1;var a: array[1..20] of integer;i,k: integer;beginrandomize;for i:=1 to 20 do a[i]:=random(15);for i:=1 to 4 do write(a[i],' ');for i:=6 to 20 do write(a[i],' ');writeln;writeln(a[5]);end.