Написать программу, вычисляющую скалярное произведение двух векторов произвольной размерности n — QBasic(Бейсик)

CLS
PRINT "skalyarnoye proizvedenie <a,b> vektorov a i b"
INPUT " vvedi razmernost vektorov n "; n%
DIM a(n%), b(n%)
FOR i% = 1 TO n%
    INPUT "a(i%)=", a(i%)
    INPUT "b(i%)=", b(i%)
    skl = skl + a(i%) * b(i%)
NEXT i%
PRINT "<a,b> = "; skl
END