Qbasic program on howto find even or odd

CLS
INPUT A
IF A MOD 2 =0 THEN
PRINT "EVEN";
ELSE
PRINT "ODD";
END IF
END


SUB......END SUB
DECLARE SUB EOO(A)
INPUT A
CALL EOO(A)
END
SUB EOO(A)
IF A MOD A = 0 THEN
PRINT "EVEN"
ELSE
PRINT "ODD"
END IF
END SUB

FUNCTION....END FUNCTION