WAP to input a year and display whether the year is leap year or not

CLS
INPUT"ENTER TIME IN YEAR";Y
IF Y MOD 4 = 0 THEN
PRINT"THE YEAR IS LEAP YEAR"
ELSE
PRINT"THE YEAR IS NOT LEAP YEAR"
END IF 
END