Решить на паскале. дан массив, в котором 10 элементов, составить программу для вывода его элемента массива по его индексу.

//Pascal
const n=10;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
//Для теста заполнение массива сл. числами
  for i:=1 to n do a[i]:=random(50);
  writeln('Введите индекс элемента ');
  readln(k);
  writeln(a[k]);
end.