<em>VAR</em> <em> ind: LongInt;</em> <em> b: Array [1..10] of Real;</em> <em>BEGIN</em> <em> Writeln('Введите 10 чисел (элементы массива):');</em> <em> for i := 1 to 10 do Read(b[i]);</em> <em></em> <em> Write('Введите индекс эл. массива: ');</em> <em> Read(ind);</em> <em> Write(b[ind]);</em> <em>END.</em>