составьте программу выводящую на экран значения любого элемента массива В [10] вещественных чисел, по введеному с клавиатуры

Программа позволяет заполнить массив из десяти элементов, после чего предлагает вводить индексы элементов массива. По введенному индексу выводится элемент массива. Программа завершает работу, если задать индекс 10. Выход после вывода элемента на экран.

program array1;

var

  a: array [0..10] of integer;

  n: integer;

begin

a[0]:=0; 

for i:integer:=1 to 10 do

  Begin

    Write(\'a[\',i,\']=\');

    Read(a[i]);

  end;

 n:=1;

 while n<10 do

  begin

    Write(\'Enter index \');

    readln(n);

    writeln (\'a[\', n, \'] = \', a[n]);

  end

 end.