Определить будет ли этот год високосным и к какому веку он относится — QBasic(Бейсик)

INPUT "year=", year
IF (year MOD 4 = 0 AND year MOD 100 <> 0) OR year MOD 400 = 0 THEN
    PRINT "visokosniy"
ELSE
    PRINT "ne visokosniy"
END IF
PRINT "BEK: ", year / 100 + 1