Из трех матриц сформировать четвертую по правилу - QBasic

Формулировка задачи:

Помогите пожалуйста решить задачку: Даны квадратные матрицы А,В,С порядка 2. а) Получить матрицу D элементы которой ровны dij=(aij+bij)*cij a= 2 4 8 6 b= 1 18 0 3 c= 4 9 5 12 б) выполнить все шаги (а), представив алгоритм преобразования матрицы 2мя модулями: головной SUBROUTINE, или головным модулем и вн. функцией FUNCTION ps: пытался слепить из подобных интернетовских задачек, не получилось(( не мое это наверное)) СПАСИБО ЗА ПОМОЩЬ

Решение задачи: «Из трех матриц сформировать четвертую по правилу»

textual
                            Листинг программы 
                        

                            data 2,4,8,6
data 1,18,0,3
data 4,9,5,12
dim a(2,2),b(2,2),c(2,2)
for i=1 to 2
for j=1 to 2
read a(i,j)
next
next
for i=1 to 2
for j=1 to 2
read b(i,j)
next
next
for i=1 to 2
for j=1 to 2
read c(i,j)
next
next
for i=1 to 2
for j=1 to 2
d(i,j)=(a(i,j)+b(i,j))*c(i,j)
next
next
print"massiv d"
for i=1 to 2
for j=1 to 2
print d(i,j);
next
print
next
                        