Klavyeden Girilen N elemanlı A ve B Dizilerinin skaler Carpımını hesaplayan program

CLS : OPTION BASE 1: INPUT "dizi eleman says = ", n
DIM a(n), b(n)
FOR x = 1 TO n
PRINT "A ("; x; ")= "; : INPUT "", a(x)
NEXT
FOR x = 1 TO n
PRINT "B ("; x; ")="; : INPUT "", b(x)
NEXT
scaler = 0: FOR x = 1 TO n
scaler = scaler + a(x) * b(x)
NEXT
PRINT "A ve B dizilerinin scaler carpm = ", scaler
END