Високосный год информатика

Я думаю, что на Паскале.

Год високосный, если

- делится на 4 нацело, но не делится на 100 (2004, 2008, 2012 - високосные; 1700, 1900, 2100, 2200, 1800 - невисокосные)

- делится на 400 нацело (2000, 2400, 2800, 1600, 1200 - високосные)

var

a:longint;

begin

read (a) ; {Считываем номер года}

if ((a mod 4 = 0) and (a mod 100 0)) or (a mod 400 = 0) then

write ('високосный')

else

write ('невисокосный')

end.