Проверьте правильность составленной блок-схемы

[three_cats]

CLS
DIM sumx AS DOUBLE
DIM sumf AS INTEGER
DIM sum AS DOUBLE
DIM i AS INTEGER
DIM f AS INTEGER
DIM l AS INTEGER

INPUT "Enter l:"; l
sumx = 0
sumf = 0
sum = 0
x = 0
f = 0
FOR i = 1 TO l STEP 1
INPUT "Enter x: ", x
INPUT "Enter f: ", f
sumf = sumf + f
sum = sum + x * f
NEXT i
CLS
PRINT "result = "; sum / sumf
END