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

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\", Приём; ПЕР   B: РЯД 10 ИЗ ВЕЩ;   индекс: ЦЕЛ; УКАЗ   ОТ индекс := 0 ДО РАЗМЕР(B) - 1 ВЫП     B[индекс] := УЗК(Матем.случ())   КОН;   Вывод.Цепь("Введите индекс: ");   индекс := Приём.Число();   ЕСЛИ индекс >= РАЗМЕР(B) ИЛИ индекс < 0 ТО     Вывод.Цепь("^ПНХ")   ИНАЧЕ     Вывод.ЧВещ("^%g", B[индекс], 0, 0, 0)   КОН КОН Задание.