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