Преобразовать матрицу А в одномерный массив и вывести на экран- QBasic(Бейсик)

input n
input m
dim a(n,m),b(n*m)
{заполнение массива смотри в важном}
for i=1 to n
for j=1 to m
k=k+1
b(k)=a(i,j)
next
next
for i=1 to n*m
print b(i);
next