c := 0
for i := 1 step 1 until n do
    c:= c + a[i] * b[i]