В массиве А(2;2) увеличить вдвое элементы 2-го столбца.Вывести исходный массив и новый- QBasic(Бейсик)

dim a(2,2)
for i=1 to 2
for j=1 to 2
input "vvedite element ",a(i,j)
next
next
print "ishodnyj massiv"
for i=1 to 2
for j=1 to 2
print a(i,j);
next
print
next
print
for i=1 to 2
a(i,2)=a(i,2)*2
next
print "novyj massiv"
for i=1 to 2
for j=1 to 2
print a(i,j);
next
print
next