Даны целые числа a1, a2, a3, a4 Получить целочисленную квадратную матрицу [bi j], у которой bi j =ai -3aj (i,j=1,2,3,4).- QBasic(Бейсик)

CLS
DIM A(4), B(4, 4)
PRINT "Vvedite tselie chisla A1,A2,A3,A4: "
FOR i = 1 TO 4
    INPUT A(i)
NEXT i
PRINT "Matritsa B "
FOR i = 1 TO 4
    FOR j = 1 TO 4
        B(i, j) = A(i) - 3 * A(j)
        PRINT USING "####"; B(i, j);
    NEXT j
    PRINT
NEXT i