Дан двумерный массив а размером 3*3, заполненный с клавиатуры. требуется умножить элементы этого массива на 4, если а(1,1)> 0, или на 7, если a(1,1)< 0

Dim a(1 to 3,1 to 3) as integer,i,j as integer
randomize
for i= 1 to 3
for j= 1 to 3
a(i,j)= rnd•100
print tab;a(i,j);
next j
print
next i
for i= 1 to 3
for j = 1 to 3
if a(1,1)>0 then
a(i,j)•4
end if
next j
next i
if a (1,1)<0 then
a(i,j)• 7
end if
next j
next i
print tab;a(i,j);
на языке бейсик))