Цитата(Vahappaday @ 12.5.2012, 22:02) *

Dim x(12)
P = 1
For i = 1 to 6
x(i * 2) = 1
x((i * 2)-1) = 2
P=P*x(i*2)
P=P*x(i*2-1)
Next
Print P

Как-то так...
Все исправления понятны?

Всё понятно, спасибо за помощь!