Даны два однотипных вектора размерности N. Получить их скалярное произведение

Формула согласно теореме:

Скалярное произведение векторов a{x1; y1; z1} и b{x2; y2; z2} выражается формулой ab= x1x2+ y1y2+ z1z2 (a и b - соответственно это вектора)

INPUT n
DIM a(n),b(n)
PRINT "vvedite 1 vektor"
FOR i=1 TO n
INPUT a(i)
NEXT
PRINT "vvedite 2 vektor"
FOR i=1 TO n
INPUT b(i)
NEXT
FOR i=1 TO n 
ab=ab+a(i)*b(i)
NEXT
PRINT ab

автор: кот Бегемот