Вычислить сумму всех четных натуральных чисел меньше данного n . по информатике

СLS
INPUT n
FOR i = 1 TO n
IF INT(i/2) = i/2 THEN s=s+i
NEXT i
PRINT "сумма равна"; s
END