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

INPUT "year=",year
IF (year MOD 4 = 0 AND year MOD 100 <> 0) OR year MOD 400 = 0 THEN
PRINT "високосный"
ELSE
PRINT "не високосный"
END IF
PRINT "BEK: ", year \ 100+1