Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.

Вот это и надо было ВСЕ писать. Или нужную Вам часть.

Удивительно еще, что я угадал VBA !!!

а другие пункты поможите?

Нет. 1) Их нет в условии. 2) такой объем за 6 баллов делать смешно 3) Я пишу программы, а не рисую картинки, - рисовать и писать сочинения на каких-то псевдокодах - это занятие для школьников.

спасибо